Class Attack Script

[Jed]

ok, i've been asking this for quite a while now, and i have tried the script myself.

what this script does is allows players to attack certain classes, and the others it cannot attack.  for example:

Classes 0,1, 2, and 6 can attack classes 3, 4, 5, and 7, and vice versa.
if classes 0, 1, 2, and 6 try to attack one of the allied classes, it should tell you something like "You cannot attack an ally!", but when the allies attack the enemy classes, it should work.  the one major important thing is that i dont want the players to become PKers when they kill each other.  i have tried soing this myself, but it doesnt work.  here is what i tried:

If GetPlayerClass = 0 Then
If GetPlayerTarget = Class 0 Then
Call BattleMsg(Index, "You cannot attack an allied member!" , BRIGHTRED)

if you can help or make the script, thanx, and if you dont have the time or you dont want to make the script, at least help me.  thanks.

[Admiral Refuge]

You're calling the functions wrong.
GetPlayerClass needs to be GetPlayerClass(index) and GetPlayerTarget needs to be GetPlayerTarget(index).

Also, you forgot both End If at the end, and "Class 0" should just be "0".

EDIT:
So this should be correct (syntax-wise):
If GetPlayerClass(index) = 0 Then
   If GetPlayerTarget(index) = 0 Then
      Call BattleMsg(Index, "You cannot attack an allied member!" , BRIGHTRED)
   End If
End If

Though, you could also just have:
If GetPlayerClass(index) = 0 AND GetPlayerTarget(index) = 0 Then
      Call BattleMsg(Index, "You cannot attack an allied member!" , BRIGHTRED)
End If

Just letting you know, unless you have an "Exit Sub" after the call msg, it will still attack the player, it will just say "You cannot attack an allied member!".

[Jed]

where would this need to go in the attack sub?  like where to put it?  before the actual attacking?

[Admiral Refuge]

@Ezmek:

> where would this need to go in the attack sub?  like where to put it?  before the actual attacking?

Assuming the logic is correct, put it at the the beginning of your attack sub; just make sure you didn't forget the exit sub command as well.

[Jed]

ok, thanx admiral.

[Akselj]

The best way, though, is to use If GetPlayerClass(Index) = GetPlayerClass(GetPlayerTarget(Index))

[Jed]

ok, this gets confusing, i will need someone to make the entire sub for what i explained, and please PM it to me, because this will get very confusing after a while.

[Admiral Refuge]

Write an entire sub, for 4 lines of code???

Just put this before anything else in your attack sub:
```
If GetPlayerClass(Index) = GetPlayerClass(GetPlayerTarget(Index)) Then
  Call BattleMsg(Index, "You cannot attack an allied member!" , 12)
  Exit Sub
End If
```

[Jed]

no, i want 4 classes to be able to attack 4 other classes and not the first 4 classes they are a part of.

[Admiral Refuge]

@Ezmek:

> no, i want 4 classes to be able to attack 4 other classes and not the first 4 classes they are a part of.

In that case, it would be a function, not a sub, wouldn't it?

Okay…. I haven't tested this, so let me know if it works (other scritpers, take a look at it to please)

Paste this at the bottom of your main.txt:
```
Function CanAttack(index, target)
Dim MyClass
Dim TheirClass
MyClass = GetPlayerClass(index)
TheirClass = GetPlayerClass(target)
If MyClass = 0 Or MyClass = 1 Or MyClass = 2 Or MyClass = 6 Then 'Their 0, 1, 2, or 6.
      If TheirClass = 3 Or Theirclass = 4 Or TheirClass = 5 Or TheirClass = 7 Then
        Return True 'They can attack.
      Else
        Return False 'They cannot attack.
      End If
Else 'Their 3, 4, 5, or 7.
  If TheirClass = 0 Or Theirclass = 1 Or TheirClass = 2 Or TheirClass = 6 Then
      Return True ' They can attack.
  Else
      Return False ' They cannot attack.
  End If
End If
End Function
```
Now, put this before anything else in your attack sub:
```
Dim target
target = GetPlayerTarget(Index)
If CanAttack(index, target) <> True Then
  Call BattleMsg(Index, "You cannot attack an allied member!" , 12)
  Exit Sub
End If
```

[Jed]

it doesnt work.  when i attack someone or an NPC, all it does is make the attack sound then nothing happens.

[Bobosk]

try replacing <> true with = true

[Jed]

no because we dont want allies attacking each other.  if you make that true then it would allow that, and we dont want that.

maybe we could try = False instead of <> True