Fixed quest rewarding + Lethal attacks in Dojo

Fixed quests not giving items in some cases, lethal damages rendering
dojo uncompletable and added new scripts.

scripts/event/s4aWorld.js

@@ -0,0 +1,84 @@
+/*
+ * 4th Job Snipe / Concentration
+ */
+
+function init() {
+    em.setProperty("started", "false");
+}
+
+function monsterValue(eim, mobId) {
+    return 1;
+}
+
+function setup() {
+    var eim = em.newInstance("s4aWorld");
+
+    eim.setInstanceMap(910500000).resetFully();
+    eim.startEventTimer(1200000);
+
+    em.setProperty("started", "true");
+
+    return eim;
+}
+
+function playerEntry(eim, player) {
+    var map = eim.getMapFactory().getMap(910500000);
+    player.changeMap(map, map.getPortal(0));
+}
+
+function playerDead(eim, player) {
+}
+
+function playerRevive(eim, player) {
+}
+
+function scheduledTimeout(eim) {
+    eim.disposeIfPlayerBelow(100, 105090200);
+
+    em.setProperty("started", "false");
+}
+
+function changedMap(eim, player, mapid) {
+    if (mapid != 910500000) {
+	eim.unregisterPlayer(player);
+
+	if (eim.disposeIfPlayerBelow(0, 0)) {
+	    em.setProperty("started", "false");
+	}
+    }
+}
+
+function playerDisconnected(eim, player) {
+    return 0;
+}
+
+function leftParty(eim, player) {
+    // If only 2 players are left, uncompletable:
+    playerExit(eim, player);
+}
+
+function disbandParty(eim) {
+    //boot whole party and end
+    eim.disposeIfPlayerBelow(100, 105090200);
+
+    em.setProperty("started", "false");
+}
+
+function playerExit(eim, player) {
+    eim.unregisterPlayer(player);
+    var map = eim.getMapFactory().getMap(105090200);
+    player.changeMap(map, map.getPortal(0));
+}
+
+function clearPQ(eim) {
+    eim.disposeIfPlayerBelow(100, 105090200);
+
+    em.setProperty("started", "false");
+}
+
+function allMonstersDead(eim) {
+//has nothing to do with monster killing
+}
+
+function cancelSchedule() {
+}