Lee_Dragoon Posted November 7, 2007 Author Share Posted November 7, 2007 It took me a good while to draw the bodies ;)Feel free to use them for PDI know, I left myself a note… like I'd forget...and here is a mount script used specifically for these sprites. The original script was by "Alzamos" AKA "Alex". This version is also set up to run on tiles instead of commands and works with EE. I've tested it...Case 2' Pick up a MountIf GetVar("Scripts\Charextras\" &GetPlayerName(Index)& ".ini","Mount","IsMounting")="Yes" ThenCall PlayerMsg(Index,"You are already on your horse", 15)ElseCall PutVar("Scripts\Charextras\" &GetPlayerName(Index)& ".ini","Mount","OriginalSpriteNumber",GetPlayerSprite(Index))Call Putvar("Scripts\Charextras\" &GetPlayerName(Index)& ".ini","Mount","OriginalStrength", Getplayerstr(index))Call Putvar("Scripts\Charextras\" &GetPlayerName(Index)& ".ini","Mount","OriginalSpeed", Getplayerspeed(index))Call Putvar("Scripts\Charextras\" &GetPlayerName(Index)& ".ini","Mount","Originallevel", GetPlayerlevel(Index))Call PutVar("Scripts\Charextras\" &GetPlayerName(Index)& ".ini","Mount","IsMounting","Yes")Call Setplayerstr(index, getplayerstr(index) + 10)Call Setplayerspeed(index, getplayerspeed(index) + 10)Call SetPlayerLegsSlot(index, 0)Select Case GetPlayerSprite(index)Case 0Call SetPlayerSprite(index, 4)Case 1Call SetPlayerSprite(index, 5)Case 2Call SetPlayerSprite(index, 6)Case 3Call SetPlayerSprite(index, 7)End SelectCall sendplayerdata(index)End if Case 3' Cannot bring mountsIf GetVar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini","Mount","IsMounting")="No" ThenElseCall PlayerMsg(Index,"You cannot bring your horse here!", 15)Call PutVar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini","Mount","IsMounting","No")Call SetPlayerSprite(Index, Getvar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini","Mount", "OriginalSpriteNumber"))Call Setplayerstr(index, getvar("Scripts\Charextras\" &GetPlayerName(Index)& ".ini","Mount","OriginalStrength"))Call Setplayerspeed(index, getvar("Scripts\Charextras\" &GetPlayerName(Index)& ".ini","Mount","OriginalSpeed"))Call setplayerlevel(index, getvar("Scripts\Charextras\" &GetPlayerName(Index)& ".ini","Mount","Originallevel"))Call sendplayerdata(index)End if Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now