Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

32x64 nude sprites


Lee_Dragoon
 Share

Recommended Posts

It took me a good while to draw the bodies  ;)
Feel free to use them for PD

I 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 Mount
If GetVar("Scripts\Charextras\" &GetPlayerName(Index)& ".ini","Mount","IsMounting")="Yes" Then
Call PlayerMsg(Index,"You are already on your horse", 15)
Else
Call 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 0
Call SetPlayerSprite(index, 4)
Case 1
Call SetPlayerSprite(index, 5)
Case 2
Call SetPlayerSprite(index, 6)
Case 3
Call SetPlayerSprite(index, 7)
End Select
Call sendplayerdata(index)
End if

    Case 3
' Cannot bring mounts
If GetVar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini","Mount","IsMounting")="No" Then

Else
Call 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

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...