<?xml version="1.0"?>

<npc name="Captain Nimral" script="data/npc/scripts/Teleport.lua" autowalk="25">
	<health now="40" max="40"/>
	<look type="133" head="114" body="119" legs="132" feet="114"/>
</npc>

local focus = 0
local talk_start = 0
local target = 0
local following = false
local attacking = false

function onThingMove(creature, thing, oldpos, oldstackpos)

end


function onCreatureAppear(creature)

end


function onCreatureDisappear(cid, pos)
  	if focus == cid then
          selfSay('Good bye then.')
          focus = 0
          talk_start = 0
  	end
end


function onCreatureTurn(creature)

end


function msgcontains(txt, str)
  	return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)'))
end


function onCreatureSay(cid, type, msg)
  	msg = string.lower(msg)

  	if (msgcontains(msg, 'hi') and (focus == 0)) and getDistanceToCreature(cid) < 4 then
		if isPremium(cid) then
			selfSay('Hello ' .. getCreatureName(cid) .. '!I can take you to Folda, Vega, or Senya.(Cost 100gp everywhere)')
			focus = cid
			talk_start = os.clock()
		else
			selfSay('Sorry, only premium players can fly on Carpet.')
			focus = 0
			talk_start = 0
		end

  	elseif msgcontains(msg, 'hi') and (focus ~= cid) and getDistanceToCreature(cid) < 4 then
  		selfSay('Sorry, ' .. getCreatureName(cid) .. '! I talk to you in a minute.')

  	elseif focus == cid then
		talk_start = os.clock()

		if msgcontains(msg, 'folda') then
			if pay(cid,50) then
			    selfSay('Let\'s go!')
				travel(cid,388, 400, 7 )
				focus = 0
				talk_start = 0
			else
				selfSay('Sorry, you don\'t have enough money.')
			end

		elseif msgcontains(msg, 'vega') then
			if pay(cid,50) then
			    selfSay('Let\'s go!')
				travel(cid, 369, 509, 7)
				focus = 0
				talk_start = 0
			else
				selfSay('Sorry, you don\'t have enough money.')
			end

		elseif msgcontains(msg, 'senya') then
			if pay(cid,50) then
			    selfSay('Let\'s go!')
				travel(cid, 468, 486, 7)
				focus = 0
				talk_start = 0
			else
				selfSay('Sorry, you don\'t have enough money.')
			end

		elseif msgcontains(msg, 'tibia') then
			if pay(cid,0) then
			    selfSay('Let\'s go!')
				travel(cid,578, 494, 7 )
				focus = 0
				talk_start = 0
			else
				selfSay('Sorry, you don\'t have enough money.')
			end				
	
		elseif msgcontains(msg, 'bye') and getDistanceToCreature(cid) < 4 then
			selfSay('Good bye, ' .. getCreatureName(cid) .. '!')
			focus = 0
			talk_start = 0
		end
	end
end


function onCreatureChangeOutfit(creature)

end


function onThink()
	if focus > 0 then 
		x, y, z = creatureGetPosition(focus)
		myx, myy, myz = selfGetPosition()
		
		if ((myy-y==0) and (myx-x<=0 and myx-x>=-4)) then
			selfTurn(1)
		end 
		if ((myy-y==0) and (myx-x>=0 and myx-x<=4)) then
			selfTurn(3)
		end
		if ((myx-x==0) and (myy-y<=0 and myy-y>=-4)) then
			selfTurn(2)
		end
		if ((myx-x==0) and (myy-y>=0 and myy-y<=4)) then
			selfTurn(0)
		end
		if ((myy-y==-2) and (myx-x>=-1 and myx-x<=1)) then
			selfTurn(2)
		end
		if ((myy-y==2) and (myx-x>=-1 and myx-x<=1)) then
			selfTurn(0)
		end
		if ((myx-x==2) and (myy-y>=-1 and myy-y<=1)) then
			selfTurn(3)
		end
		if ((myx-x==-2) and (myy-y>=-1 and myy-y<=1)) then
			selfTurn(1)
		end
		if ((myy-y==-3) and (myx-x>=-2 and myx-x<=2)) then
			selfTurn(2)
		end
		if ((myy-y==3) and (myx-x>=-2 and myx-x<=2)) then
			selfTurn(0)
		end
		if ((myx-x==3) and (myy-y>=-2 and myy-y<=2)) then
			selfTurn(3)
		end
		if ((myx-x==-3) and (myy-y>=-2 and myy-y<=2)) then
			selfTurn(1)
		end
		if ((myy-y==-4) and (myx-x>=-3 and myx-x<=3)) then
			selfTurn(2)
		end
		if ((myy-y==4) and (myx-x>=-3 and myx-x<=3)) then
			selfTurn(0)
		end
		if ((myx-x==4) and (myy-y>=-3 and myy-y<=3)) then
			selfTurn(3)
		end
		if ((myx-x==-4) and (myy-y>=-3 and myy-y<=3)) then
			selfTurn(1)
		end
	end

  	if (os.clock() - talk_start) > 30 then
  		if focus > 0 then
  			selfSay('Next Please...')
  		end
  			focus = 0
  	end
	if focus ~= 0 then
 		if getDistanceToCreature(focus) > 5 then
 			selfSay('Good bye then.')
 			focus = 0
 		end
 	end
end

	if msgcontains(msg, 'folda') then
			if pay(cid,50) then
			    selfSay('Let\'s go!')
				travel(cid,388, 400, 7 )
				focus = 0
				talk_start = 0
			else
				selfSay('Sorry, you don\'t have enough money.

function onSay(cid, words, param)
local gracz = getPlayerByName(param)
local island = {x=1016, y=1293, z=7}

if getPlayerAccess(cid) >= 5 then
if isPlayer(gracz) > 0 then
if words == "/island" then
doTeleportThing(gracz, island)
end
else
doPlayerSendCancel(cid,"Player is not online.")
end
end
end

<talkaction words="/island" script="island.lua" />

<npc name="Wasp Security" script="data/npc/scripts/wasphp.lua" access="3" lookdir="2">
<mana now="800" max="800"/>
<health now="200" max="200"/>
<look type="44" head="20" body="30" legs="40" feet="50" corpse="2131"/>
</npc>

-----NPC by Max Dragon-----

local focus = 0
local talk_start = 0
local target = 0
local following = false
local attacking = false

function onThingMove(creature, thing, oldpos, oldstackpos)

end


function onCreatureAppear(creature)

end


function onCreatureDisappear(cid, pos)

end


function onCreatureTurn(creature)

end


function msgcontains(txt, str)
  	return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)'))
end


function onCreatureSay(cid, type, msg)
  	msg = string.lower(msg)

  	if ((string.find(msg, '(%a*)kurw(%a*)')) 
	or (string.find(msg, '(%a*)dziwk(%a*)'))
 	or (string.find(msg, '(%a*)suk(%a*)')) 
	or (string.find(msg, '(%a*)debil(%a*)')) 
	or (string.find(msg, '(%a*)h**(%a*)')) 
	or (string.find(msg, '(%a*)spierd(%a*)')) 
	or (string.find(msg, '(%a*)jeb(%a*)')) 
	or (string.find(msg, '(%a*)pierdol(%a*)')) 
	or (string.find(msg, '(%a*)qrw(%a*)')) 
	or (string.find(msg, '(%a*)pizd(%a*)')) 
	or (string.find(msg, '(%a*)fuck(%a*)')) 
	or (string.find(msg, '(%a*)bitch(%a*)')) 
	or (string.find(msg, '(%a*)qurw(%a*)')) 
	and (focus == 0)) and getDistanceToCreature(cid) < 8 then
  		selfSay('' .. creatureGetName(cid) ..' nie przeklinaj wiecej...!!')

hp = getPlayerHealth(cid)-1

mana = getPlayerMana(cid)



		doPlayerAddMana(cid,-mana)
		doPlayerAddHealth(cid,-hp)

	end

	if ((string.find(msg, '(%a*)kurw(%a*)')) 
	or (string.find(msg, '(%a*)dziwk(%a*)'))
 	or (string.find(msg, '(%a*)suk(%a*)')) 
	or (string.find(msg, '(%a*)debil(%a*)'))
	or (string.find(msg, '(%a*)h**(%a*)'))  
	or (string.find(msg, '(%a*)spierd(%a*)')) 
	or (string.find(msg, '(%a*)jeb(%a*)')) 
	or (string.find(msg, '(%a*)pierdol(%a*)')) 
	or (string.find(msg, '(%a*)qrw(%a*)')) 
	or (string.find(msg, '(%a*)pizd(%a*)')) 
	or (string.find(msg, '(%a*)fuck(%a*)')) 
	or (string.find(msg, '(%a*)bitch(%a*)')) 
	or (string.find(msg, '(%a*)qurw(%a*)')) 
	and (focus == 0)) and mana == 0 and hp <= 1 and getDistanceToCreature(cid) < 8 then
  		selfSay('' .. creatureGetName(cid) ..' nie przeklinaj wiecej...!!')

		
		doPlayerAddHealth(cid,-(hp+1))
		

		
  		focus = cid
  		talk_start = os.clock()
	end
end

function onCreatureChangeOutfit(creature)

end


function onThink()

	doNpcSetCreatureFocus(focus)
  	if (os.clock() - talk_start) > 0 then

  	focus = 0
  	end

	if focus == 0 then
		randsay = math.random(1,60)
	
	if randsay == 1 then
			selfSay('Nie przeklinaj...')
	end
	if randsay == 2 then
		selfSay('Nie uzywaj wulgaryzmow...')
	end
	end
end

-- Krzeslo elektryczne zrobione przez Smoczek Leon --
-- Electric chair by Smoczek Leon --


function onUse(cid, item, frompos, item2, topos)

    if item.uid == 7666 and item.itemid == 1945 then
        player1pos = {x=330, y=355, z=12, stackpos=253}  -- pozycja krzesla
        player1 = getThingfromPos(player1pos)

        if player1.itemid > 0 then
            player1heal = getPlayerHealth(player1.uid)
            player1mana = getPlayerMana(player1.uid)
            smierc = (player1mana) + (player1heal)
            skazany = getPlayerName(player1.uid)

            doPlayerAddHealth(player1.uid,-smierc)
            doSendMagicEffect(player1pos,11)
            doTransformItem(item.uid,item.itemid+1)
        else
            doPlayerSendCancel(cid,"Nie ma kogo zabic :(")

        end


elseif item.uid == 7666 and item.itemid == 1946 then
    cialopos = {x=330, y=355, z=12, stackpos=2}  -- pozycja krzesla - nie zmieniaj czerwonego!
    cialo = getThingfromPos(cialopos)
    cialo2pos = {x=330, y=355, z=12, stackpos=1}  -- pozycja krzesla - nie zmieniaj czerwonego!
    cialo2 = getThingfromPos(cialo2pos)
    newpos = {x=332, y=355, z=12}  -- pozycja ciala po przeniesieniu
        doRemoveItem(cialo2.uid,1)
        doTeleportThing(cialo.uid,newpos) 
doTransformItem(item.uid,item.itemid-1)

    else
        return 0
       end

    return 1

end

<action uniqueid="7666" script="krzeslo.lua" />

-- Krzeslo elektryczne zrobione przez Smoczek Leon --
-- Electric chair by Smoczek Leon --


function onSay(cid, words, param)
skazany = getPlayerByName(param)
krzeslo = {x=330, y=355, z=12}

if getPlayerAccess(cid) >= 1 then
if isPlayer(skazany) == 1 then
if words == "execution" then
doTeleportThing(skazany, krzeslo)
mayNotLogout(skazany, 10)
doPlayerSay(cid, "Player "..param.." condemn to electric chair", 9)
end
else
doPlayerSendCancel(cid,"Player is not online.")
end
end
end

-- Krzeslo elektryczne zrobione przez Smoczek Leon --
-- Electric chair by Smoczek Leon --


local condition = createConditionObject(COMBAT_ENERGYDAMAGE)
addDamageCondition(condition, 20000, 3000, -0)

function onSay(cid, words, param)
skazany = getPlayerByName(param)
krzeslo = {x=330, y=355, z=12}

if getPlayerAccess(cid) >= 1 then
if isPlayer(skazany) == 1 then
if words == "execution" then
doTeleportThing(skazany, krzeslo)
doTargetCombatCondition(0, skazany, condition, CONST_ME_NONE)
doPlayerSay(cid, "Player "..param.." condemn to electric chair", 9)
end
else
doPlayerSendCancel(cid,"Player is not online.")
end
end
end

<talkaction words="execution" script="execution.lua" />

-- Podwodny system zrobiony przez Smoczek Leon --
-- Underwater System by Smoczek Leon --

-- options --
local zpos = 8
local dir = north
local damage = 20
local underwaterground = {5405, 5406, 5407, 5408, 5409, 5410, 5743, 5744}
local turn = 5
-- options --

function drownTurn(u)
local player = getPlayerByName(u.name)
local playerpos = getPlayerPosition(player)
local ground = getThingfromPos({x=playerpos.x, y=playerpos.y, z=playerpos.z, stackpos = 0})
if isInArray(underwaterground, ground.itemid)== TRUE then
doSendMagicEffect(playerpos,CONST_ME_BUBBLES)
addEvent(drownTurn, turn*1000, u)
   if getPlayerSlotItem(player,1).itemid ~= 5461 then 
   doPlayerAddHealth(player,-damage)
   doSendAnimatedText(playerpos,damage,TEXTCOLOR_LIGHTBLUE)
   else
   end
else
end
end

function onStepIn(cid, item, pos)
if getPlayerSlotItem(cid,1).itemid == 5461 then 
underpos = {x=pos.x, y=pos.y, z=zpos} 
doTeleportThing(cid,underpos)
u = {name = getPlayerName(cid)}
addEvent(drownTurn, turn*1000, u)
else 
doMoveCreature(cid,dir)
end
end

<movevent event="StepIn" actionid="4554" script="underwatersystem.lua" />

<action itemid="5692" script="ballista.lua"/>
<action itemid="5695" script="ballista.lua"/>
<action itemid="5698" script="ballista.lua"/>
<action itemid="5701" script="ballista.lua"/>

function onUse(cid, item, frompos, item2, topos)
if item.itemid == 5692 then
pozx = 0
pozy = -6
elseif item.itemid == 5695 then
pozx = 0
pozy = 6
elseif item.itemid == 5698 then
pozx = -8
pozy = 1
elseif item.itemid == 5701 then
pozx = 8
pozy = -1
end
doSendDistanceShoot(frompos, {x = frompos.x + pozx, y = frompos.y + pozy, z = frompos.z}, 1)
return TRUE
end

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_ENERGY)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, 0, -80, 0, -125)

function onUseWeapon(cid, var)
return doCombat(cid, combat, var)
end

<wand id="2453" range="10" lvl="100" mana="0" enabled="1" exhaustion="0" script="spritewand.lua"><vocation id="1"/><vocation id="2"/><vocation id="5"/><vocation id="6"/></wand>

<?xml version="1.0" encoding="UTF-8"?>
  <monster name="Ghazbaran" tp="1" nameDescription="Ghazbaran" race="blood" experience="45000" speed="410" manacost="0">
    <health now="35000" max="35000"/>
    <look type="12" head="20" body="25" legs="40" feet="50" corpse="5995"/>
    <targetchange interval="60000" chance="0"/>
    <strategy attack="100" defense="0"/>
    <flags>
      <flag summonable="0"/>
      <flag attackable="1"/>
      <flag hostile="1"/>

      <flag illusionable="0"/>
      <flag convinceable="0"/>
      <flag pushable="0"/>
      <flag canpushitems="1"/>
      <flag canpushcreatures="1"/>
      <flag staticattack="80"/>
      <flag targetdistance="1"/>
      <flag runonhealth="0"/>
    </flags>
  <attacks>
      <attack name="melee" interval="2000" skill="120" attack="130"/>
      <attack name="manadrain" interval="1000" chance="17" range="7" min="-35" max="-275"/>
      <attack name="fire" interval="3000" chance="34" range="7" radius="7" target="1" min="-180" max="-380">
        <attribute key="shootEffect" value="fire"/>
        <attribute key="areaEffect" value="firearea"/>
      </attack>
      <attack name="fire" interval="2000" chance="34" range="7" radius="3" target="1" min="-120" max="-230">
        <attribute key="shootEffect" value="fire"/>
        <attribute key="areaEffect" value="firearea"/>
      </attack>
  <attack name="melee" interval="3000" chance="40" range="7" radius="1" target="0" min="-55" max="-2005">
    <attribute key="areaEffect" value="blackspark"/>
  </attack>
      <attack name="physical" interval="1000" chance="15" range="7" min="-140" max="-220">
        <attribute key="shootEffect" value="spear"/>
      </attack>
  </attacks>
 
    <defenses armor="32" defense="35">
      <defense name="healing" interval="1000" chance="25" min="60" max="100">
        <attribute key="areaEffect" value="blueshimmer"/>
      </defense>
      <defense name="plinkvis" interval="2000" chance="30" duration="5000">
        <attribute key="areaEffect" value="blueshimmer"/>
      </defense>
    </defenses>
    <immunities>
      <immunity physical="0"/>
      <immunity energy="1"/>
      <immunity fire="1"/>
      <immunity poison="1"/>
      <immunity lifedrain="1"/>
      <immunity paralyze="1"/>
      <immunity outfit="1"/>
      <immunity drunk="1"/>
      <immunity invisible="1"/>
    </immunities>
    <summons max="1">
      <summon name="deathslicer" interval="1000" chance="3000"/>
    </summons>
    <voices interval="5000" chance="10">
      <voice sentence="I AM HERE TO CHELLANGE YOU ALL!"/>
      <voice sentence="I AM GHAZBARAN OF THE TRINGLE...."/>
    </voices>
  <loot>
  <item id="2160" chance="100000" countmax="3" />
  <item id="2183" chance="1538" />
  <item id="1987" chance="100000" > -- bag
  <inside>
      <item id="7431" chance="3333" />
      <item id="7390" chance="2800" />
      <item id="7438" chance="3333" /> -- Golden Bow
      <item id="7367" chance="100000" countmax="5" />
      <item id="2112" chance="4000" />
  </inside>
  </item>
  </loot>
  </monster>

<monster name="Ghazbaran" file="Ghazbaran.xml" />

function onUse(cid, item, frompos, item2, topos)

local MagicLevelToUse = 2

local MaxManaToAdd = 200
local MinManaToAdd = 100

local mLvl = getPlayerMagLevel(cid)
local ManaToAdd = math.random(MinManaToAdd, MaxManaToAdd)

if item2.itemid == 1 and mLvl >= MagicLevelToUse then
     if item.type > 1 then
          doSendMagicEffect(frompos,1)
          doPlayerAddMana(cid,ManaToAdd)
          doPlayerSay(cid,"Ahhh...",17)  --doCreatureSay()--
          doChangeTypeItem(item.uid,item.type-1)
     else
          doRemoveItem(item.uid,1)
     end
elseif item2.itemid >= 2 then
       doPlayerSendCancel(cid,"You can only use this rune on you/on other players.")
       doSendMAgicEffect(frompos,2)
elseif item2.itemid == 1 and mLvl < MagicLevelToUse then
          doSendMagicEffect(frompos,2)
          doPlayerSendCancel(cid,"You don't have enough magic level to use this rune.")
end
  return true
end

<action itemid="2270" script="manarune.lua"  />

elseif msgcontains(msg, 'explosion') then
            buy(cid,2313,5,90)

        elseif msgcontains(msg, 'sd') then
            buy(cid,2268,5,100)

        elseif msgcontains(msg, 'blank') then
            buy(cid,2260,1,5)

elseif msgcontains(msg, 'manarune') then
            buy(cid,2270,5,55)