Qazek

This is 100% working quest system for EO, but only for advanced Visual Basic 6 users. If you are noob **you must stop create games without "brain" !!!** :evil:

STOP! I HAVE THIS!  And my monster card!  It's OVER!!!!!

May first let 's do graphics for game? :huh:


@Qazek: > Robin can you add to animation editor X and Y variables (showing animation + / - X pixels opposite player/npc sprite etc.) ?

Robin can you add to animation editor X and Y variables (showing animation + / - X pixels opposite player/npc sprite etc.) ?

Yyyyy XD Compiling exe: File > Make…. Checking program: Run > Start With Full Compile

xD New tree: http://j.imagehost.org/download/0553/drzewo_b_duze

Ok, I do this for you ;) Open Client frmEditor_Item and add: scrollbar: name - scrlItemDamage label: name - lblItemDamage caption - "Damage: " Paste this to scrlItemDamage code: ``` Item(EditorIndex).ItemDamage = scrlItemDamage.Value lblItemDamage.Caption = "Damage: " & scrlItemDamage.Value ``` Find: ``` Private Type ItemRec ``` Add to this type: ``` ItemDamage As Long ``` Find in ItemEditorInit: ``` frmEditor_Item.scrlRarity.Value = .Rarity ``` And add: ``` frmEditor_Item.scrlItemDamage.Value = .ItemDamage ``` Ok now go to the Server Find: ``` Private Type ItemRec ``` And add to this type: ``` ItemDamage As Long ``` Find in HandleUseItem: ``` Case ITEM_TYPE_WEAPON ``` And under is: ``` SetPlayerEquipment Index, GetPlayerInvItemNum(Index, InvNum), Weapon PlayerMsg Index, "You equip " & CheckGrammar(Item(GetPlayerInvItemNum(Index, InvNum)).Name), BrightGreen TakeInvItem Index, GetPlayerInvItemNum(Index, InvNum), 1 ``` Add over this: ``` If Item(GetPlayerInvItemNum(Index, InvNum)).ItemDamage > 0 Then SetPlayerVital Index, HP, GetPlayerVital(Index, HP) - Item(GetPlayerInvItemNum(Index, InvNum)).ItemDamage End If ```

I think you must use map sending command xD

Hello! I like Breeze tilesets but the best is editing trees xD You can use on your game ;) http://i.imagehost.org/download/0330/56_7  http://i.imagehost.org/download/0277/drzewko_duze  :P This is my first trees I'm gonna add more soon

Yes, but with this tutorial you can make your advanced items in source code in VB

This is version for Eclipse Origins 1.1.0. SERVER SIDE Find in HandleUseItem: ``` Case ITEM_TYPE_POTIONADDHP ``` Add over this: ``` Case ITEM_TYPE_SCRIPTED For I = 1 To Stats.Stat_Count - 1 If GetPlayerStat(Index, I) < Item(GetPlayerInvItemNum(Index, InvNum)).Stat_Req(I) Then PlayerMsg Index, "You do not meet the stat requirements to use this item.", BrightRed Exit Sub End If Next Select Case Item(GetPlayerInvItemNum(Index, InvNum)).Script Case 0 PlayerMsg Index, "This is a test scripted item effect", BrightBlue Call SendAnimation(GetPlayerMap(Index), Item(GetPlayerInvItemNum(Index, InvNum)).Animation, 0, 0, TARGET_TYPE_PLAYER, Index) Case 1 Case 2 End Select Call TakeInvItem(Index, Player(Index).Inv(InvNum).Num, 0) ``` Find: ``` Public Const ITEM_TYPE_SPELL As Byte = 13 ``` Add: ``` Public Const ITEM_TYPE_SCRIPTED As Byte = 14 ``` Find: ``` Private Type ItemRec ``` Add to this type: ``` Script As Byte ``` CLIENT SIDE Find: ``` Public Const ITEM_TYPE_SPELL As Byte = 13 ``` Add: ``` Public Const ITEM_TYPE_SCRIPTED As Byte = 14 ``` Find: ``` Private Type ItemRec ``` Add to this type: ``` Script As Byte ``` Find: ``` frmEditor_Item.scrlPrice.Value = .Price frmEditor_Item.cmbBind.ListIndex = .BindType frmEditor_Item.scrlRarity.Value = .Rarity ``` Add under: ``` frmEditor_Item.scrlScript.Value = .Script ``` Ok now go to frmEditor_Item and do that: 1\. Add new frame: name = fraScript caption = Script 2\. To this frame add: a) label: name = lblScript caption = "Script: " b) scrollbar: name = scrlScript 3\. Click 2x on scrlScript and add this code: ``` lblScript.Caption = "Script: " & scrlScript.Value ``` 4\. Add to list on cmbType: Script 5\. Click 2x on cmbType and paste this to cmbType code: ``` If (cmbType.ListIndex = ITEM_TYPE_SCRIPTED) Then fraScript.Visible = True Else fraScript.Visible = False End If ``` Ok this is all for Scripted Item system. You can write your items there: ``` Select Case Item(GetPlayerInvItemNum(Index, InvNum)).Script Case 0 PlayerMsg Index, "This is a test scripted item effect", BrightBlue Call SendAnimation(GetPlayerMap(Index), Item(GetPlayerInvItemNum(Index, InvNum)).Animation, 0, 0, TARGET_TYPE_PLAYER, Index) Case 1 Case 2 End Select ```

Ok I do this because I see there's aren't spell what warp player to the same map but to others X,Y. It's first warp spell modification, but I do other player warp system soon. SERVER SIDE Find: ``` Case SPELL_TYPE_WARP SendAnimation MapNum, Spell(spellnum).SpellAnim, 0, 0, TARGET_TYPE_PLAYER, Index PlayerWarp Index, Spell(spellnum).Map, Spell(spellnum).x, Spell(spellnum).y SendAnimation GetPlayerMap(Index), Spell(spellnum).SpellAnim, 0, 0, TARGET_TYPE_PLAYER, Index DidCast = True ``` And replace with this: ``` Case SPELL_TYPE_WARP SendAnimation MapNum, Spell(spellnum).SpellAnim, 0, 0, TARGET_TYPE_PLAYER, Index 'If Spell(spellnum).Map > 0 Then PlayerWarp Index, Spell(spellnum).Map, Spell(spellnum).x, Spell(spellnum).y 'Else 'PlayerWarp Index, GetPlayerMap(Index), Spell(spellnum).x, Spell(spellnum).y 'End If SendAnimation GetPlayerMap(Index), Spell(spellnum).SpellAnim, 0, 0, TARGET_TYPE_PLAYER, Index DidCast = True ``` Ok now you can warp to the same map but other X,Y

How to change resource rendering to render under player in 64 or more pixels? Because now is rendering under player on 32 pixels but this is not good for more than 32x64 sprites. Please help

I'm gonna to make a custom spell animations when player is in dir_left, dir_up etc. Now I've got this code: ``` For i = 1 To MAX_PLAYERS If IsPlaying(i) Then If i Index Then If GetPlayerMap(i) = GetPlayerMap(Index) Then If isInRange(AoE, x, y, GetPlayerX(i), GetPlayerY(i)) Then If CanAttackPlayer(Index, i, True) Then If Spell(spellnum).DirAnims = 1 Then Select Case Player(Index).Dir Case DIR_LEFT SendAnimation MapNum, Spell(spellnum).DirLeftAnim, 0, 0, TARGET_TYPE_PLAYER, i Case DIR_RIGHT SendAnimation MapNum, Spell(spellnum).DirRightAnim, 0, 0, TARGET_TYPE_PLAYER, i End Select Else SendAnimation MapNum, Spell(spellnum).SpellAnim, 0, 0, TARGET_TYPE_PLAYER, i End If AttackPlayer Index, i, Vital, spellnum End If End If End If End If End If Next ``` But when my first Direction is DIR_LEFT and I use spell animation for DIR_LEFT animation work normal but when I change direction to DIR_RIGHT and I use spell animation doesn't showed…

Hmm If GetPlayerDamage don't work good before use this tutorial, the other functions can't work If you don't add "Equipment." : ``` Function GetPlayerProtection(ByVal Index As Long) As Long Dim Armor As Long Dim Helm As Long GetPlayerProtection = 0 ' Check for subscript out of range If IsPlaying(Index) = False Or Index MAX_PLAYERS Then Exit Function End If Armor = GetPlayerEquipment(Index, Armor) Helm = GetPlayerEquipment(Index, Helmet) GetPlayerProtection = (GetPlayerStat(Index, Stats.endurance) \ 5) If Armor > 0 Then GetPlayerProtection = GetPlayerProtection + Item(Armor).Data2 End If If Helm > 0 Then GetPlayerProtection = GetPlayerProtection + Item(Helm).Data2 End If End Function Function CanPlayerCriticalHit(ByVal Index As Long) As Boolean On Error Resume Next Dim i As Long Dim n As Long If GetPlayerEquipment(Index, Weapon) > 0 Then n = (Rnd) * 2 If n = 1 Then i = (GetPlayerStat(Index, Stats.strength) \ 2) + (GetPlayerLevel(Index) \ 2) n = Int(Rnd * 100) + 1 If n 0 Then n = Int(Rnd * 2) If n = 1 Then i = (GetPlayerStat(Index, Stats.endurance) \ 2) + (GetPlayerLevel(Index) \ 2) n = Int(Rnd * 100) + 1 If n

o.0 You must go to hospital…

I find this on sourceforge.net, it's a MMORPG engine in VB.NET. Who wants to check this? Link: Removed.

This version of quests must work. I added new Editor NPC and rewrote tutorial.

I need 32x32 paperdoll items good for Breeze sprites: http://www.rpgrevolution.com/lunaproductions/br/sprites.html Or RMVX characters rips hairs, clothes ;)

EO use DX7 where there is no Alpha (only Red, Green, Blue colors). DX8 use ARGB (alpha, red, green, blue) and BMPs files don't have transparency. Only way to get alpha blending is rewrite DX7 to DX8 XD

Robin it will be a new version of the EO? I'm gonna do game on EO but I don't know what you add new to EO XD

Ok changed to working version XD

http://vb.affiliatesrus.co.uk/directx/d3d_initialisation.html I think it's DX8 tutorial xD