Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

shinobugmaster

Members
  • Posts

    34
  • Joined

  • Last visited

    Never

Posts posted by shinobugmaster

  1. Hello maybe this will be my first tut , so don't go easy on me , this will allow you to create a spell type that will give you item after cast

    lets start at client side and server side shall we? add this at spell constant

    ```

    Public Const SPELL_TYPE_ITEM As Byte = 5

    ```

    on spellrec add this 2 line

    ```

    GItemNum As Long

    GItemValue As Long

    ```

    client side

    form work

    at spell editor add a 1 frame , 2 scrollbars , and 2 labels also add a "Item" on cmbType

    name the following

    1 scrollbar = scrlitem (make the min of this scrlbar to 1 and max to 255)

    1 scrollbar = scrlitemvalue

    1 label = lblitem

    1 label = lblitemvalue

    add this at scrlitem

    ```

    lblItem.Caption = "Item: " & Trim$(Item(scrlItem.Value).Name)

    Spell(EditorIndex).GItemNum = scrlItem.Value

    ```

    add this at scrlitemvalue

    ```

    lblItemValue.Caption = "Value: " & scrlItemValue.Value

    Spell(EditorIndex).GItemValue = scrlItemValue.Value

    ```

    at spelleditorinit add this where ever you see it fit

    ```

    .scrlItem.Value = Spell(EditorIndex).GItemNum

    .scrlItemValue.Value = Spell(EditorIndex).GItemValue

    ```

    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

    ```

    add this below

    ```

    Case SPELL_TYPE_ITEM

    SendAnimation GetPlayerMap(Index), Spell(spellnum).SpellAnim, 0, 0, TARGET_TYPE_PLAYER, Index

    GiveInvItem Index, Spell(spellnum).GItemNum, Spell(spellnum).GItemValue

    DidCast = True

    ```

    now you can do the modification if you want , that's all thank you
  2. Maganda ung idea na eto .. pero parang lahat ay nasa eclipse na eh..

    kung gagawa ka ng laru .. wag kang mahiyang mag tanung sakin ![:D](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/biggrin.png)
  3. Hmm

    ```

    Case Random

    i = RAND(Item(itemnum).Data1, Item(itemnum).Data2)

    Call GiveInvItem(Index, i, 0)

    Call TakeInvItem(Index, itemnum, 0)

    ```

    Use that piece of code at UseItem and it's yours to figure out the rest..
  4. Nvm it was fixed .. The Jutsu System i made was the trigger so i added/modified something

    Thanks anyway ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/tongue.png)
  5. > ganda galingan mo tol. ![:)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/smile.png)

    Pinoy kadin? Thanks

    > You might want to post some introduction to your game. I don't quite get the gist of the game. You might also want to update information about your game updates to the main post.
    >
    > Other than that, it looks pretty good! You made good use of the maps.

    I'll do that when I'm done on my School problem ![:D](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/biggrin.png)
×
×
  • Create New...