https://sureai.net/forum/viewtopic.php?t=2121
scn ...
Begin ScriptEffectStart
if ( TeleportDisabled == 1 )
Message "Das ist im Moment nicht möglich."
PlaySound "SPLAlterationFail"
return
endif
if GetItemCount "RuneTeleport" == 0
Message "Ihr benötigt dazu eine Teleportrune!"
PlaySound "SPLAlterationFail"
Return
endif
If ( IsInCombat == 0 )
if ( GetItemCount "RuneTeleport" )
Player.RemoveItem "RuneTeleport" 1
Set VarTeleportCount to ( VarTeleportCount +1 )
PlaySound "SPLMysticismCast"
;=====================================[ Horse travels with you ]===========================================
;Donkey from Giliad
if ( GetPlayerHasLastRiddenHorse == 1 )
if ( ReittierGiliadQuest.OwnReittierGiliad == 1 ) && ( ReittierSteinfeldQuest.OwnReittierSteinfeld01 == 0 ) && ( ReittierSteinfeldQuest.OwnReittierSteinfeld02 == 0 ) && ( ReittierSteinfeldQuest.OwnReittierSteinfeld03 == 0 )
ReittierEsel01GiliadGesatteltRef.MoveTo XXX
endif
if ( ReittierSteinfeldQuest.OwnReittierSteinfeld01 == 1 ) && ( ReittierSteinfeldQuest.ReittierPferderuestung == 0 )
ReittierPferd01SteinfeldGesatteltRef.MoveTo XXX
elseif ( ReittierSteinfeldQuest.OwnReittierSteinfeld01 == 1 ) && ( ReittierSteinfeldQuest.ReittierPferderuestung == 1 )
ReittierPferd01SteinfeldPferderuestungRef.MoveTo XXX
endif
if ( ReittierSteinfeldQuest.OwnReittierSteinfeld02 == 1 ) && ( ReittierSteinfeldQuest.ReittierPferderuestung == 0 )
ReittierPferd02SteinfeldGesatteltRef.MoveTo XXX
elseif ( ReittierSteinfeldQuest.OwnReittierSteinfeld02 == 1 ) && ( ReittierSteinfeldQuest.ReittierPferderuestung == 1 )
ReittierPferd02SteinfeldPferderuestungRef.MoveTo XXX
endif
if ( ReittierSteinfeldQuest.OwnReittierSteinfeld03 == 1 ) && ( ReittierSteinfeldQuest.ReittierPferderuestung == 0 )
ReittierPferd03SteinfeldGesatteltRef.MoveTo XXX
elseif ( ReittierSteinfeldQuest.OwnReittierSteinfeld03 == 1 ) && ( ReittierSteinfeldQuest.ReittierPferderuestung == 1 )
ReittierPferd03SteinfeldPferderuestungRef.MoveTo XXX
endif
endif
;=====================================================================================================
Player.MoveTo XXX ;Teleport the Player
endif
elseif ( IsInCombat == 1 )
Message "Ihr seid in einen Kampf verwickelt."
endif
end
SCN ...
Short DoOnce
Short Add
Begin OnLoad
if ( DoOnce == 0 )
PlayMagicShaderVisuals RuneShader
Set DoOnce to 1
endif
End
Begin OnEquip Player
if ( Add == 0 )
Player.AddSpell XXX
PlaySound "AARuneAdd"
RemoveMe
Set Add to -1
endif
End