summaryrefslogtreecommitdiff
path: root/npc/functions/honor.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/functions/honor.txt')
-rw-r--r--npc/functions/honor.txt60
1 files changed, 60 insertions, 0 deletions
diff --git a/npc/functions/honor.txt b/npc/functions/honor.txt
new file mode 100644
index 000000000..e09f6b02f
--- /dev/null
+++ b/npc/functions/honor.txt
@@ -0,0 +1,60 @@
+// TMW2 Script
+// Author:
+// Jesusalva
+// Description:
+// PvP Honor Rank system
+
+// Numerical representation of player strength
+// get_BR( getcharid(3) )
+function script get_BR {
+ .@oid=getcharid(3);
+ .@rid=getarg(0, .@oid);
+ .@br=0;
+
+ // attachrid() and detachrid()
+ // readbattleparam(.@rid)
+ // Load
+ if (attachrid(.@rid)) {
+ .@br+=BaseLevel;
+ } else {
+ Exception("GET_BR INVALID RID "+.@rid, RB_DEBUGMES|RB_IRCBROADCAST);
+ }
+
+ // Restore
+ detachrid();
+ if (!attachrid(.@oid))
+ Exception("::FATAL :: GET_BR INVALID OID "+.@oid, RB_DEBUGMES|RB_IRCBROADCAST|RB_ISFATAL);
+
+ return .@br;
+}
+
+// Calculate the Honor Points which are due
+// calc_HR( get_BR(getcharid(3)), get_BR(killedrid) )
+function script calc_HR {
+ .@atk_br=getarg(0);
+ .@def_br=getarg(1);
+ .@cbase=10000;
+
+ // Dishonorable
+ if (.@atk_br > .@def_br) {
+ .@overpower=.@atk_br*.@cbase/.@def_br;
+ // Honorable
+ } else if (.@def_br > .@atk_br) {
+ .@overpower=.@atk_br*.@cbase/.@def_br;
+ // Neutral
+ } else {
+ .@overpower=0;
+ }
+
+ return 0;
+}
+
+// getvariableofpc(HONOR, .@rid, 0) < 0 → determine if other player is bandit
+// is_bandit( account id )
+function script is_bandit {
+ .@oid=getcharid(3);
+ .@rid=getarg(0, .@oid);
+
+ return getvariableofpc(HONOR, .@rid, 0) < 0;
+}
+