Universal Spells for EE (hp-, hp+, mp-, mp+, sp-, sp+)

Okay, I just got done making my own spell, since the spell system is kinda screwed up...

NOTE: This CANNOT be posted on ANY other forums without my direct consent. If you see this script posted on any other website besides Eclipse, please contact me!
NOTE2: Feel free to modify this any way you want; no credit needed

I made sure there are no magic numbers (atleast I think there aren't any).

Anyway, here ya go!

Known Bugs (these aren't too crippling; maybe someone could figure out why it does this):
1) If you use the Cure Spell on an NPC, it will cure the NPC, but it will not update it's health bar unless someone else attacks it.
~~2) All of these targets have unlimited range; which means that they can attack a player/NPC from ANYWHERE on the map. I'm sure this can be fixed, I just haven't worked it out yet.~~

Installation:
There are two ways of doing this...

First way (must have EE2.7):
Step 1: Save the attached "epicspell.txt" onto your computer, and put it in your script folder.
Step 2: Open up your Main.txt, and put in:
#include<epicspells.txt>

Second way:
Paste this at the bottom of your main.txt:

Code: [Select]

'~~~~~~~~~~~~~~~~~
'Epic Spell
'Made by Admiral Refuge
'Special thanks to Shadowwulf for range-detection algorithm
'Give credit where credit is due.
'~~~~~~~~~~~~~~~~~
Sub dmgspell(index, mp, val, range, ani, sound)
	If GetPlayerMP(index) >= mp Then
		Dim target
		Dim x
		Dim y
		Dim map
		map = GetPlayerMap(index)
		If GetPlayerTarget(index) < 0 Then
			target = GetPlayerTargetNpc(index)
			y = GetNpcY(map, target)
			x = GetNpcX(map, target)
			If CanSpell(index, target, range, x, y) = False Then
				Call PlayerMsg(index, "You are too far from the target!", 1)
				Exit Sub
			End If
			Call DamageNPC(index, target, val)
			Call SpellAnim(ani, map, x, y)
			Call PlaySound(index, sound)
		Else
			target = GetPlayerTarget(index)
			y = GetPlayerY(target)
			x = GetPlayerX(target)
			If CanSpell(index, target, range, x, y) = False Then
				Call PlayerMsg(index, "You are too far from the target!", 1)
				Exit Sub
			End If
			Call DamagePlayer(index, target, val)
			Call SpellAnim(ani, map, x, y)
			Call PlaySound(index, sound)
		End If
		mp = GetPlayerMP(index) - mp
		Call SetPlayerMP(index, mp)
	Else
		Call PlayerMsg(index, "You need " & mp & " MP to cast this spell!", 1)
    End If
End Sub

Sub curespell(index, mp, val, range, ani, sound)
	If GetPlayerMP(index) >= mp Then
		Dim target
		Dim x
		Dim y
		Dim map
		Dim hp
		map = GetPlayerMap(index)
		If GetPlayerTarget(index) > 0 Then
			target = GetPlayerTarget(index)
			y = GetPlayerY(target)
			x = GetPlayerX(target)
			hp = GetPlayerHP(target)
			val = val + hp
			If CanSpell(index, target, range, x, y) = False Then
				Call PlayerMsg(index, "You are too far from the target!", 1)
				Exit Sub
			End If
			Call SetPlayerHP(target, val)
			Call SpellAnim(ani, map, x, y)
			Call PlaySound(index, sound)
		Else
			target = GetPlayerTargetNpc(index)
			y = GetNpcY(map, target)
			x = GetNpcX(map, target)
			hp = GetMapNpcHP(map, target)
			val = val - hp
			If CanSpell(index, target, range, x, y) = False Then
				Call PlayerMsg(index, "You are too far from the target!", 1)
				Exit Sub
			End If
			Call SetMapNpcHP(map, target, val)
			Call SendNPC(map, target)
			Call SpellAnim(ani, map, x, y)
			Call PlaySound(index, sound)
		End If
		mp = GetPlayerMP(index) - mp
		Call SetPlayerMP(index, mp)
	Else
		Call PlayerMsg(index, "You need " & mp & " MP to cast this spell!", 1)
	End If
End Sub



Sub warmthspell(index, mp, val, range, ani, sound)
	If GetPlayerMP(index) >= mp Then
		Dim target
		Dim x
		Dim y
		Dim map
		Dim mp1
		map = GetPlayerMap(index)
		If GetPlayerTarget(index) > 0 Then
			target = GetPlayerTarget(index)
			y = GetPlayerY(target)
			x = GetPlayerX(target)
			mp1 = GetPlayerMP(index)
			val = val + mp1 - mp
			If CanSpell (index, target, range, x, y) = False Then
				Call PlayerMsg(index, "You are too far from the target!", 1)
				Exit Sub
			End If
			Call SetPlayerMP(target, val)
			Call SpellAnim(ani, map, x, y)
			Call PlaySound(index, sound)
		Else
			Call PlayerMsg(index, "You cannot cast this on an NPC", 1)
		End If
	Else
		Call PlayerMsg(index, "You need " & mp & " MP to cast this spell!", 1)
	End If
End Sub



Sub burstspell(index, mp, val, range, ani, sound)
	If GetPlayerMP(index) >= mp Then
		Dim target
		Dim x
		Dim y
		Dim map
		Dim sp
		map = GetPlayerMap(index)
		If GetPlayerTarget(index) > 0 Then
			target = GetPlayerTarget(index)
			y = GetPlayerY(target)
			x = GetPlayerX(target)
			sp = GetPlayerSP(target)
			mp = GetPlayerMP(index) - mp
			val = val + sp
			If CanSpell (index, target, range, x, y) = False Then
				Call PlayerMsg(index, "You are too far from the target!", 1)
				Exit Sub
			End If
			Call SetPlayerSP(target, val)
			Call SpellAnim(ani, map, x, y)
			Call PlaySound(index, sound)
			Call SetPlayerMP(index, mp)
		Else
			Call PlayerMsg(index, "You cannot cast this on an NPC", 1)
		End If
	Else
		Call PlayerMsg(index, "You need " & mp & " MP to cast this spell!", 1)
	End If
End Sub



Sub physchespell(index, mp, val, range, ani, sound)
	If GetPlayerMP(index) >= mp Then
		Dim target
		Dim x
		Dim y
		Dim map
		Dim mp1
		map = GetPlayerMap(index)
		If GetPlayerTarget(index) > 0 Then
			target = GetPlayerTarget(index)
			y = GetPlayerY(target)
			x = GetPlayerX(target)
			mp = GetPlayerMP(index) - mp
			If CanSpell (index, target, range, x, y) = False Then
				Call PlayerMsg(index, "You are too far from the target!", 1)
				Exit Sub
			End If
			Call SetPlayerMP(index, mp)
			mp1 = GetPlayerMP(target)
			val = mp1 - val
			Call SetPlayerMP(target, val)
			Call SpellAnim(ani, map, x, y)
			Call PlaySound(index, sound)
		Else
			Call PlayerMsg(index, "You cannot cast this on an NPC", 1)
		End If
	Else
		Call PlayerMsg(index, "You need " & mp & " MP to cast this spell!", 1)
	End If
End Sub



Function CanSpell(index, target, range, x, y)
   Dim PX
   Dim PY
   PX = GetPlayerX(index)
   PY = GetPlayerY(index)
   If target = GetPlayerTargetNpc(index) Then
      If x > PX + range Or x < PX - range Then
         CanSpell = False
         Exit Function
      End If
      If y > PY + range Or y < PY - range Then
         CanSpell = False
         Exit Function
      End If
      CanSpell = True
      Exit Function
   Else
      If GetPlayerMap(index) <> GetPlayerMap(target) Then
         CanSpell = False
         Exit Function
      End If
      If x > PX + range Or x < PX - range Then
         CanSpell = False
         Exit Function
      End If
      If y > PY + range Or y < PY - range Then
         CanSpell = False
         Exit Function
      End If
      CanSpell = True
      Exit Function
   End If
End Function

How to Use:

In the above subs, you have afew diff scripted spells, but they all have the same pattern of being called:
Call spell(index, mp, val, range, ani, sound)
mp: The amount of MP the spell will cost
val: The "Vital Mod" of the spell (eg, if it's the deathspell, val will be how much HP you want to subtract from the target)
range: This is the range of the spell (eg, 5 tiles)
ani: This is the spell number you'll be using the animation for. Say you want animation number 5, right? Then make a new spell (don't have it scripted), and set it's animation to 5. Then, put that spell number under "ani".
sound: Which sound you want to play (this MUST be in quotes, eg: "magic1.wav")

Types of spells to call:

Code: [Select]

Call dmgspell(index, mp, val, range, ani, sound)This one, will subtract HP from the target.

Code: [Select]

Call curespell(index, mp, val, range, ani, sound)This one will add HP to the target.

Code: [Select]

Call warmthspell(index, mp, val, range, ani, sound)This one will add MP to the target.

Code: [Select]

Call physchespell(index, mp, val, range, ani, sound)This one will subtract MP from the target.

Code: [Select]

Call burstspell(index, mp, val, range, ani, sound)This one will add SP to the target.

Code: [Select]

Call slowspell(index, mp, val, range, ani, sound)This one will subtract SP from the target.

This is my very first (working) script, but I think I was able to make it efficient enough.

Still need help?
Okay; go into your Main.txt, and look under your ScriptedSpell sub.
It should look like this:

Code: [Select]

' Executes whenever a player casts a scripted spell.
Sub ScriptedSpell(Index, Script)
	Select Case Script
		Case 0
			Call PlayerMsg(Index, "This scripted spell has no apparent use.", WHITE)
			Exit Sub

		Case Else
			Call PlayerMsg(Index, "No spell script found. Please contact an admin to solve this problem.", WHITE)
			Exit Sub
	End Select
End Sub

Notice under Case 0, you see the Call PlayerMsg command. Instead of Call PlayerMsg, you put the calls in for my spell.

So say you want to add two new spells, right? One that will take away HP, and one that will heal.
So you'll be using two of the calls Call dmgspell(index, mp, val, range, ani, sound) and Call curespell(index, mp, val, range, ani, sound).

Now, where do you put it? The first one is simple; just replace the Call PlayerMsg in Case 0, with Call dmgspell(index, mp, val, range, ani, sound)
{Of course, you can replace mp, val, ani, and sound, with what is needed (see the opening post)}

Now, you're scripted spell sub should look like this (assuming you want a dmg spell that costs 5 mp to use, and takes 10 hp away, has a range of 3, plays the spell animation belonging to spell #2, and has the sound Magic1.wav):

Code: [Select]

' Executes whenever a player casts a scripted spell.
Sub ScriptedSpell(Index, Script)
   Select Case Script
      Case 0
         Call dmgspell(index, 5, 10, 3, 2, "magic1.wav")
         Exit Sub

      Case Else
         Call PlayerMsg(Index, "No spell script found. Please contact an admin to solve this problem.", WHITE)
         Exit Sub
   End Select
End Sub

But, what do you do about the other spell?
You add another Case. For this, Case 1.
Then, you put the new call under Case 1, so it will look like this (don't forget to add "Exit Sub" at the end of that case):

Code: [Select]

' Executes whenever a player casts a scripted spell.
Sub ScriptedSpell(Index, Script)
   Select Case Script
      Case 0
         Call dmgspell(index, 5, 10, 3, 2, "magic1.wav")
         Exit Sub

      Case 1
         Call curespell(index, mp, val, range, ani, sound)
         Exit Sub

      Case Else
         Call PlayerMsg(Index, "No spell script found. Please contact an admin to solve this problem.", WHITE)
         Exit Sub
   End Select
End Sub

Then, you just add another case to put another call in.

Of course, to use these spells, you go in the spell editor, and make the spell type scripted, and Script 0, will be for Case 0, etc.

No Spam Or Websites

Recent Topics

Who's Online