viesty

No, I do not need it to make maps. I just need it for a concept, but I do not want to install full game and then open up the editor. I hope you understood me.

Hello, as I have been a long-term member, I remember that there was a Java-based map editor? Is it still available or is there new or better version? Thanks. ;)

Okay guys, Huge thanks to Ballie, we are updating all the maps constantly, so we will take your suggestions ;) Thanks again.

These are some of maps for my online project, how do you like them? :huh:   

bump :)

I can host 2 servers for free but third for money. I am hosting 24/6.5 (because 0.5 is for rest :cheesy:) _Computer specs_: **Operating system**: Windows XP Professional. **CPU**: 2x Intel Xeon 4-core 2.9GHz **HD**: 1TB **RAM**: 2GB **Internet speed**:  You can trust me. I know that I am not active at forums, but not everybody with small post count and 0% popularity is untrustable.

Wooot wooot woot, thanks Admiral it worked :)

Thanks, ill try it out. I am lazy now, could u give me vista fix?

This is a really serious problem for me. I have reinstalled Direct X, my DirectDraw is enabled.  :cry: :cry: :cry: :cry: :cry: :cry: Please, please, please help me! :icon_alabanza:

Nope.. it has got no problem.

Hello everyone! I have big problem with npc attack. I can hurt npc's with weapons (bows,swords) BUT i can't hurt them with my fists (without any weapon). This is my whole attack sub.. Is there something wrong? ``` '######### ATTACK AND DEATH ######### '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Sub OnAttack(Index, Damage, Hit) '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Dim SkillCheck Dim Weapon Dim Dir Dim RequiredWeapon Dim Target Weapon = GetPlayerInvItemNum(Index, GetPlayerWeaponSlot(Index)) Dir = GetPlayerDir(Index) If Int(Hit) = 1 Then If Int(Damage) > 0 Then If Int(GetPlayerTarget(Index)) > 0 Then Target = GetPlayerTarget(Index) Call DamagePlayer(Index, Target, Damage) Else Target = GetPlayerTargetNPC(Index) Call DamageNPC(Index, Target, Damage) End If End If End If Select Case Int(Dir) Case 0 'Up SkillCheck = CheckSkill(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index) - 1) Case 1 'Down SkillCheck = CheckSkill(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index) + 1) Case 2 'Left SkillCheck = CheckSkill(GetPlayerMap(Index), GetPlayerX(Index) - 1, GetPlayerY(Index)) Case 3 'Right SkillCheck = CheckSkill(GetPlayerMap(Index), GetPlayerX(Index) + 1, GetPlayerY(Index)) Case Else Call PlayerMsg(Index, "BUGGER!", 4) End Select RequiredWeapon = GetVar("Scripts\Skill\Skill" & SkillCheck & ".ini", "General", "Item") 'end sub If Cint(SkillCheck) > 0 Then If CInt(RequiredWeapon) = CInt(Weapon) Then Call SkillDo(Int(Index), Int(SkillCheck)) End If End If End Sub ```

And.. does it hurt you?

 Rofl, i took the picture in my class. boy to the right is just fooling around. XD XD XD XD

my entire sub: ``` '######### ATTACK AND DEATH ######### '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Sub OnAttack(Index, Damage, Hit) '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Dim SkillCheck Dim Weapon Dim Dir Dim RequiredWeapon Dim Target Weapon = GetPlayerInvItemNum(Index, GetPlayerWeaponSlot(Index)) Dir = GetPlayerDir(Index) If Int(Hit) = 1 Then If Int(Damage) > 0 Then If Int(GetPlayerTarget(Index)) > 0 Then Target = GetPlayerTarget(Index) Call DamagePlayer(Index, Target, Damage) Else Target = GetPlayerTargetNPC(Index) Call DamageNPC(Index, Target, Damage) End If End If End If Select Case Int(Dir) Case 0 'Up SkillCheck = CheckSkill(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index) - 1) Case 1 'Down SkillCheck = CheckSkill(GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index) + 1) Case 2 'Left SkillCheck = CheckSkill(GetPlayerMap(Index), GetPlayerX(Index) - 1, GetPlayerY(Index)) Case 3 'Right SkillCheck = CheckSkill(GetPlayerMap(Index), GetPlayerX(Index) + 1, GetPlayerY(Index)) Case Else Call PlayerMsg(Index, "BUGGER!", 4) End Select RequiredWeapon = GetVar("Scripts\Skill\Skill" & SkillCheck & ".ini", "General", "Item") 'end sub If Cint(SkillCheck) > 0 Then If CInt(RequiredWeapon) = CInt(Weapon) Then Call SkillDo(Int(Index), Int(SkillCheck)) End If End If End Sub ```

``` '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Sub OnAttack(Index, Damage, Hit) '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Dim SkillCheck Dim Weapon Dim Dir Dim RequiredWeapon Dim Target Weapon = GetPlayerInvItemNum(Index, GetPlayerWeaponSlot(Index)) Dir = GetPlayerDir(Index) If Int(Hit) = 1 Then If Int(Damage) > 0 Then If Int(GetPlayerTarget(Index)) > 0 Then Target = GetPlayerTarget(Index) Call DamagePlayer(Index, Target, Damage) Else Target = GetPlayerTargetNPC(Index) Call DamageNPC(Index, Target, Damage) End If End If End If ``` soo is there something wrong?