Need Some Scripts Important!

[halloboss123]

Hey,

I need some Scripts:

Donation Manarune & Donation UH :
I can chose the Effect as Example the Effect /z 31 and a Text over me iv i use that as Example Donation Manarune!
And i want so see the Health of the Rune if i use that.

Buyhouse Command:

I need the Command , !buyhouse and !sellhouse to buy a House and sell one.

As well i need a Donation / VIP System.

Got anyone a Script who got a Effect like VIP! over the Player + the System?

Greetz.

 

[killing]

well Why you just don't use little searching.
Vip System http://otland.net/f81/release-vip-system-44986/
Command for houses you can find in other Data-packs.
Donation Times,Edit in Items.xml
magic Effect try to find in Server/DOC/LUA_FUNCTIONS.. use little searching "CTRL + F"

For Runes use Searching too
Like i did

http://otland.net/f81/mana-rune-63181/
http://otland.net/f81/manarune-forgotten-server-0-3-5-a-61365/
http://otland.net/f81/funny-manarune-58168/


Healt Rune

local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE) setCombatParam(combat, 
COMBAT_PARAM_TARGETCASTERORTOPMOST, 1) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0) 

function onCastSpell(cid, var) 
        doCreatureSay(cid,"Donation UH!",19)
        doCreatureAddHealth(cid, math.random(13000, 13000)) 
        return doCombat(cid, combat, var) 
end

Use Little searching next time..
If you can find the thing that you are looking for Then make new Thread!!!!!

 

[halloboss123]

Thanks but i dont know how to paste a Magic effect in the Script .
As Example :
doSendMagicEffect(topos,31)
PLEASE HELP ME

 

[killing]

Try this let me know if it works..

local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE) setCombatParam(combat, 
COMBAT_PARAM_TARGETCASTERORTOPMOST, 1) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0) 
 
function onCastSpell(cid, var) 
        doCreatureSay(cid,"Donation UH!",19)
		doSendMagicEffect(topos,31) 
        doCreatureAddHealth(cid, math.random(13000, 13000)) 
        return doCombat(cid, combat, var) 
end

- - - Updated - - -

if it don't work try this.

doSendMagicEffect(getPlayerPosition(cid), 27)

- - - Updated - - -

local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE) setCombatParam(combat, 
COMBAT_PARAM_TARGETCASTERORTOPMOST, 1) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0) 
 
function onCastSpell(cid, var) 
        doCreatureSay(cid,"Donation UH!",19)
		doSendMagicEffect(getPlayerPosition(cid), 27)
        doCreatureAddHealth(cid, math.random(13000, 13000)) 
        return doCombat(cid, combat, var) 
end

 

[halloboss123]

Try this let me know if it works..

local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE) setCombatParam(combat, 
COMBAT_PARAM_TARGETCASTERORTOPMOST, 1) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0) 
 
function onCastSpell(cid, var) 
        doCreatureSay(cid,"Donation UH!",19)
		doSendMagicEffect(topos,31) 
        doCreatureAddHealth(cid, math.random(13000, 13000)) 
        return doCombat(cid, combat, var) 
end

- - - Updated - - -

if it don't work try this.

doSendMagicEffect(getPlayerPosition(cid), 27)

- - - Updated - - -

local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE) setCombatParam(combat, 
COMBAT_PARAM_TARGETCASTERORTOPMOST, 1) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0) 
 
function onCastSpell(cid, var) 
        doCreatureSay(cid,"Donation UH!",19)
		doSendMagicEffect(getPlayerPosition(cid), 27)
        doCreatureAddHealth(cid, math.random(13000, 13000)) 
        return doCombat(cid, combat, var) 
end

Yeah 2. goes Thank you very much Rep++ !

- - - Updated - - -

I need same as Manarune with that Effect, did u got this Script?

 

[killing]

I don't i well try to create one..
But later im Busy with my Server.

- - - Updated - - -

Manarune!

function onUse(cid, item, frompos, item2, topos)
mag = getPlayerMagLevel(cid)
if mag >= 3 then
doSendMagicEffect(topos,1)
doPlayerSay(cid,"Ahhh, Mana!",16)
doPlayerAddMana(cid, 1000)
if item.type > 1 then
doChangeTypeItem(item.uid,item.type-1)
else
doRemoveItem(item.uid,1)
end
else
doSendMagicEffect(frompos,2)
doPlayerSendCancel(cid,"You don't have the required magic level to use that rune.")
end
return 1
end

- - - Updated - - -

You can edit this

doPlayerAddMana(cid, 1000)

 

[halloboss123]

If i will use that Ingame, the Client show me an Error and Exit....

 

[killing]

okok

Delete that script..

- - - Updated - - -

try this one..
100% created by me
my sixth script xD

function onUse(cid, item, frompos, item2, topos)
     if getPlayerLevel(cid) > 1 then
		doSendMagicEffect(topos,1)
		doCreatureSay(cid,"AhA!", TALKTYPE_ORANGE_1)
		doPlayerAddMana(cid, 500)
		return true
	end
end

rep++ if it helps

 

[halloboss123]

okok

Delete that script..

- - - Updated - - -

try this one..
100% created by me
my sixth script xD

function onUse(cid, item, frompos, item2, topos)
     if getPlayerLevel(cid) > 1 then
		doSendMagicEffect(topos,1)
		doCreatureSay(cid,"AhA!", TALKTYPE_ORANGE_1)
		doPlayerAddMana(cid, 500)
		return true
	end
end

rep++ if it helps

Yeah , it's Helped me very much!
Thank you it's very friendly!!
Rep++

 

[killing]

\xd