Action Mindfreak's Script Collection

[MindFreak]

I was so sick and tired to always search for the scripts i need, And im not lonely (I think).
I havnt done anything of this, Just great peaple have gived it to me.

Let's start.


[Backpack Of Sds By Using Lever]

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

container = doPlayerAddItem(cid, 2003, 1)

if item.itemid == 1945 and doPlayerRemoveMoney(cid,3000) == 1 then
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doTransformItem(item.uid,item.itemid+1)
else
doPlayerSendCancel(cid,"Bp sds = 3k")
end

return 1
end

A addon creation item.
(This is for the first yalahar addon)

function onUse(cid, item, frompos, item2, topos)
         doPlayerAddOutfit(cid, 325, 1)
         doPlayerAddOutfit(cid, 157, 1)
         doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have received First Yalahar Addon.")
         doSendMagicEffect(getCreaturePosition(cid), 14)
         doRemoveItem(item.uid, 1)
         return 1
end

Manarune

function onUse(cid, item, frompos, item2, topos)
mag = getPlayerMagLevel(cid)
    if mag >= 0 then
        doSendMagicEffect(topos,27)
        doPlayerAddMana(cid, math.random(500, 1000))
        if item.type > 1 then
            doChangeTypeItem(item.uid,item.type-1)
        else
            doRemoveItem(item.uid,1)
        end
    else
        doSendMagicEffect(frompos,2)
    end
return 1
end

VIP ITEM

-- Credits StreamSide and Empty
function onUse(cid, item, fromPosition, itemEx, toPosition)

	if getPlayerStorageValue(cid,11551) < 1 then
		if getPlayerLevel(cid) > 1 then
			getPlayerStorageValue(cid, 11551)
			doSendAnimatedText(getPlayerPosition(cid), "Welcome!", TEXTCOLOR_RED) 
			doCreatureSay(cid, "CONGRATULATIONS! You are now a VIP for 15 days! You can now enter the VIP-area and use unique features!. ", TALKTYPE_ORANGE_1)
			setPlayerStorageValue(cid, 11551, (getPlayerStorageValue(cid,11551) + 15))
			doRemoveItem(item.uid, 1)
		else
			doPlayerSendCancel(cid,"You need to be at least level 2 to use this.")
			doRemoveItem(item.uid, 1)
		end
	else
		doPlayerSendCancel(cid,"You are already a donator.")
	end	
return TRUE
end

Vip Door

function onUse(cid, item, frompos, item2, topos)
if item.uid == 11551 then -- This number you will imput into map editor for the door you wish
queststatus = getPlayerStorageValue(cid,11551) -- Quest number that needs to be COMPLETE.
area = {x=7404, y=7509, z=7} -- If that above quest is complete, It will teleport you here.
if queststatus == -1 then
doCreatureSay(cid, "Sorry, but only VIP Players can pass here! Buy VIP on the website!. ", TALKTYPE_ORANGE_1)
else
doTeleportThing(cid, area,0)
doSendMagicEffect(topos, 12)
doCreatureSay(cid, "Welcome VIP Player!", TALKTYPE_ORANGE_1)
end
end
return 1
end

Credits goes to the one that made them.

Add some rep if you liked it

 

[Pentagratta]

Thanks for release it

 

[FarkZ]

rlz

 

[Rogil]

manarune = rox nice script

 

[Tufte]

I was so sick and tired to always search for the scripts i need, And im not lonely (I think).
I havnt done anything of this, Just great peaple have gived it to me.

Let's start.


[Backpack Of Sds By Using Lever]

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

container = doPlayerAddItem(cid, 2003, 1)

if item.itemid == 1945 and doPlayerRemoveMoney(cid,3000) == 1 then
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doAddContainerItem(container, 2268, 25)
doTransformItem(item.uid,item.itemid+1)
else
doPlayerSendCancel(cid,"Bp sds = 3k")
end

return 1
end

plz learn loops. shorter and faster version:

function onUse(cid, item, frompos, item2, topos)
local container = doPlayerAddItem(cid, 2003, 1)

if item.itemid == 1945 and doPlayerRemoveMoney(cid,3000) == 1 then
   for i = 1, 20 do
       doAddContainerItem(container, 2268, 25)
   end
   doTransformItem(item.uid,item.itemid+1)
else
   doPlayerSendCancel(cid,"Bp sds = 3k")
end

 

[Rogil]

thanks dude