Mount script

[Alzamos]

This was requested by Tivolios:
Under the "Select Case LCase(Trim(TextSay))":

Code: [Select]

   Case "/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","IsMounting","Yes")
Call SetPlayerSprite(Index, 10)
call sendplayerdata(index)
End if
Exit sub

Case "/dismount"
If GetVar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini","Mount","IsMounting")="No" Then
Call PlayerMsg(Index,"You are already dismounted", 15)
Else
Call PutVar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini","Mount","IsMounting","No")
Call SetPlayerSprite(Index, Getvar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini","Mount", "OriginalSpriteNumber"))
Call sendplayerdata(index)
End if
Exit subthe Call SetPlayerSprite(Index, 10) part is where you choose what you want to transform into (spritenumber).
Oh and if you want to add strength, defence, or speed just ask, I'll update the post
Oh and I almost forgot:

This script was made by Alzamos (aka Alex) and should not be used outside this topic or outside of this forum, if you wish to post a modified version of this script, please contact me before doing so


Mounting script V2.0: Adds +10 to strength and speed

Code: [Select]

Case "/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 SetPlayerSprite(Index, 10)
call sendplayerdata(index)
End if
Exit sub

Case "/dismount"
If GetVar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini","Mount","IsMounting")="No" Then
Call PlayerMsg(Index,"You are already dismounted", 15)
Else
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
Exit sub
Then, add under the PlayerLevelUp sub, right below the

Code: [Select]

Call BattleMsg(index, "You have " & GetPlayerPoints(index) & " stat points.", 9, 0) and above the

Code: [Select]

end sub add this:

Code: [Select]

If GetVar("Scripts\Charextras\" &GetPlayerName(Index)& ".ini","Mount","IsMounting")="Yes" Then
Call Putvar("Scripts\Charextras\" &GetPlayerName(Index)& ".ini","Mount","Originallevel", GetPlayerlevel(Index))

[tiggilyboo]

Would this work for EE gama?

[pheXion (Fred)]

All scripts from previous version eclipse works on newest version.

[tiggilyboo]

ok ty
but i think the Main.ini is different from the versions arnt they?

[Tivoilos]

umm..didn't Alex say not to use this script outside this forum,

[robotboy555]

This is a good script but when i say /dismount it changes my level to 4 then back to 99 and my sprite doesn't change back :'(

[kenny]

I dont think its storing variables correctly since it should be "\scripts\charextras" & getplayername(index) & ".ini"

[Uru Wolf]

Is there a certified EE version for this? I have tryed the code above but it just errors my main.txt

[Mystical Fish Man]

Hey, about the syntax...
Keep it consistent! It gets confusing when you write stuff like this:

Code: [Select]

call sendplayerdata(index)after writing in this format:

Code: [Select]

Call SetPlayerSprite(Index, 10)And I think it makes a difference when it runs the code, but I may be wrong! :-\
So please change it to Call SendPlayerData(Index)
It will make it look more professional as well.  :o
Thanks,
Mystical Fish Man