Paladin Scripts

[EdsonJunior 966]

Trocar de arma de acordo com monstro:

init start

	--setup start

	local monsters = {names = {'Hydra', 'Dragon'}, dist = 5, amount = 3}

	local items = {twohanded = 'royal crossbow', onehanded = 'assassin star', shield = 'mastermind shield'}

	--/setup end

	local weaphandn,weaphand = findweapon()

	local shieldhandn,shieldhand

	if weaphandn == 'rhand' then

    	shieldhandn,shieldhand = 'lhand',$lhand

	else

    	shieldhandn,shieldhand = 'rhand',$rhand

	end

	table.id(items,true)init end

auto(100)

if maround(monsters.dist,table.unpack(monsters.name)) >= monsters.amount then

	while weaphand.id ~= items.onehanded do

    	equipitem(items.onehanded,weaphandn)

    	waitping()

	end

	while shieldhand.id ~= items.shield do

    	equipitem(items.shield,shieldhandn)

    	waitping()

	endelse

	while weaphand.id ~= items.twohanded do

    	equipitem(items.twohanded,weaphandn)

    	waitping()

	end

end  

Exori Con/San Striker Manual:

init start

	--setup start

	local san = {'Frost Dragon', 'Frost Dragon Hatchling'}

	local con = {'Hydra', 'Lizard Highguard'}

	--/setup end

	local sanspell = spellinfo('exori san')

	local conspell = spellinfo('exori con')

	table.lower(san) table.lower(con) init end if $attacked.id ~= 0 then

	if table.find(san,$attacked.name:lower()) and cancastspell(sanspell, $attacked) then

    	cast(sanspell.words)

    	wait(900,1100)

	elseif table.find(con,$attacked.name:lower()) and cancastspell(conspell, $attacked) then

    	cast(conspell.words)

    	wait(900,1100)

	end

end  

Automatico:

init start

	--setup start

	local san = {'Frost Dragon', 'Frost Dragon Hatchling'}

	local con = {'Hydra', 'Lizard Highguard'}

	--/setup end

	local sanspell = spellinfo('exori san')

	local conspell = spellinfo('exori con')

	table.lower(san) table.lower(con) init end

auto(150,350)

if $attacked.id ~= 0 then

	if table.find(san,$attacked.name:lower()) and cancastspell(sanspell, $attacked) then

    	cast(sanspell.words)

    	wait(900,1100)

	elseif table.find(con,$attacked.name:lower()) and cancastspell(conspell, $attacked) then

    	cast(conspell.words)

    	wait(900,1100)

	end

end  

Refill Ammo Use 2 persistents/hotkeys

refillammo() 

init start

local refill

ammo = {3449,3447,3446,3448,3450,1781,3277,7378,3298,2992,3347,7368,761,762,763,7367,7363,7364,774} init end

function refillammo()

	local i = 1

	while ammo[i] ~= nil do

    	print(i)

    	if $rhand.id == ammo[i] and $rhand.count < 100 then

        	equipitem(ammo[i],"rhand")

        	wait(100)

        	return

    	elseif $lhand.id == ammo[i] and $lhand.count < 100 then

        	equipitem(ammo[i],"lhand")

        	wait(100)

        	return

    	elseif $belt.id == ammo[i] and $belt.count < 100 then

        	equipitem(ammo[i],"belt")

        	wait(100)

        	return

    	end

    	i = i+1

	end

end


auto(800,1300)

if refill == nil then refill = math.random(10,99) end if ($belt.count < refill) then 

Pegar Royal Spears do Chão...

init start

	local bppos = {x = $wptx, y = $wpty, z = $wptz}

	local capsave = 400 --this will save 400 of cap for you. init end


reachlocation(bppos.x,bppos.y,bppos.z) openitem(0,ground(bppos.x,bppos.y,bppos.z)) waitcontainer() local handn,handi = findweapon() equipitem(handi.id,handn,nil,math.floor(($cap-capsave)/25))  

[karamujo 0]

fais um tutorial ae de como funciona pq aki no meo nao deu certo

[Private Sub Teste 353]

Que linguagem é essa que o neobot usa? TENSO.

-

queroneobotporra

-

[jmaracaipe 4]

faz isso pra bbot plz

[lipekin 1]

Esses é de neo? o.o

[Private Sub Teste 353]

TibiaKing.com - Tudo sobre Tibia, OTServ e Bots!

Bots para Tibia

NeoBot

Scripts

[Didole 0]

Verifiquei só agora, antigo mais consegui usar, valeu abraços.