A 1-time use warp scroll OMG

[Simius Cruentus]

put this in scripted items script

Code: [Select]

case 4
x = GETPLAYERX(INDEX)
y = GETPLAYERY(INDEX)
if GetAttribute(GetPlayerMap(Index), x, y) = 1 then
call playermsg(index, "The scroll fizzles up.", 1)
call TakeItem(Index, 29)
exit sub
else
call playerwarp(Index, 4, x, y)
call TakeItem(Index, 29)
call playermsg(index, "The scroll fizzles up as you drift into a different location.", 1)
exit sub
end ifadd this to the bottom.

Code: [Select]

Sub TakeItem(index, item)
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = item Then
Call SetPlayerInvItemNum(index, SLOT, 0)
Call SetPlayerInvItemValue(index, SLOT, 0)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Subyou can find the 'take item' script also in unknown raven's quest script
just change 29 to the item number you want just like the 4 in 'call playerwarp'

[Godlord]

That script is longer then mine... Just use my Teleport script and add the takeitem to it and maybe an animation thingy and you have a scroll which teleports to a location (Made by the creator)

[Fax]

Work in TE?

[Simius Cruentus]

Work in TE?

it should.

[Fax]

I shall give it a try

[Fax]

it works. though my item doesnt disapear though I can only use it once. so it remains but as garbage kind of. Thats fine. Cause then they have like something to throw away. Nice script thanks Monkey.

P.S. How was it possible you got beta to work 

when I tried to use beta nothing would show up. My players would loggon and the gui would be there text box and everything but the window that has all the tiles and players in it was compleatly white. couldnt see anything not my player not any tiles nothing.

[Simius Cruentus]

I dont know either. LOL! but it works?

[Fax]

yes but. the scroll doesnt disapear