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

Warconn

Members
  • Posts

    568
  • Joined

  • Last visited

    Never

Posts posted by Warconn

  1. hey i just got myself a VB 2k5 Express Edition, and i want to compile the code that i have changed.

    Instead of compile, there is a button called "Build", so i clicked on that, and it says i have 107 errors, and the majority of them are
    "Error 1 Name 'LenB' is not declared. "
    and there is one of those in ever .vb in the project

    I can compile my code unless i get this fixed, and i no LenB in variable, so how do i fix this

    Thanks
  2. hmm im still a novice at this stuff, but i think you have the wrong format…

    i think this is what you want
    ```
    Sub ScriptedItem(Index, Script)
    Select Case Script
    Case 0
    *insert beer script here, don't want the maker to be mad it's in here*
    Exit Sub
                    Case 1
                    Call SetPlayerHP(index, int(GetPlayerHP(index)+int(int(GetPlayerMaxHP(index)/100)*10)))
        Call PlayerMsg(index, "You drink the potion and feel a bit better!", 7)
    Call Take_Item(index, number, value)
                    Exit Sub
    Case Else
    Call PlayerMsg(Index, "No item script found. Please contact an admin to solve this problem.", WHITE)
    Exit Sub
    End Select
    End Sub

    ```
    All i did was rearrange your code, and add the take_item so that the potion will disappear after they drink it
    Warconn

    [EDIT]
    I was looking around my main, and found this

    Call Take_Item(index, number, value)

    The number is the item number you want to take so if the potion item is number 3  then the number would be 3

    This is the amount you want taken, so if you want to take 2 potions when they drink it, the value would be 2

    **If you dont have the take_item sub in your main at all, add this at the end of your main

    ```
    '********************************
    Sub Take_Item(index, number, value)
    '********************************

    Dim slot
    Dim taken
    Dim initial
    Dim final

    slot=1
    taken=0
      Do While Int(slot) < 25     
          If Int(taken)=0 Then     
            If GetPlayerInvItemNum(index,Int(slot)) = Int(number) Then
                If Int(GetPlayerInvItemValue(index, Int(slot))) >= Int(value) Then
                initial = Int(GetPlayerInvItemValue(index, Int(slot) ) )
                final = Int(initial) - Int(value)           
                  If Int(final) <= 0 Then             
                  Call SetPlayerInvItemNum(index, Int(slot), Int(0) )
                  Call SetPlayerInvItemValue(index, Int(slot), Int(0) )
                  Call SetPlayerInvItemDur(index, Int(slot), Int(0) )
                  Call SendInventoryUpdate(index, Int(slot))
                  taken=1             
                  Else           
                  Call SetPlayerInvItemValue(index, Int(slot), Int(final) )
                  Call SendInventoryUpdate(index, Int(slot) )
                  taken=1           
                  End If
                End If       
            End If
          End If     
      slot = slot + 1
      Loop
    End Sub

    ```
    Correct me if i am wrong about this stuff guys  :)

    Thanks
  3. hey i was searching the commands list for 2.7, and i saw

    ```
    Call SetTile

    ```
    the example that was in it wasnt the most explanitory on how to use it. Can anyone else explain it to me i would really like to use it in my game

    Thanks
  4. ```

    '||||||||||||||||||||||||||||||||
    Sub Warconn_PlayerDevSystem(index,"str")
    '||||||||||||||||||||||||||||||||

    Dim counter1
    Dim x
    Dim points

    counter1=GetVar("scripts\charextras\" & GetPlayerName(index) & ".ini", "PlayerDevSystem", "str")
    counter1= counter1+1
    Call PlayerMsg(index, "this should be working", 13)
    Call PutVar("scripts\charextras\" & GetPlayerName(index) & ".ini", "PlayerDevSystem", "str", Int(counter1) )

    Select Case script
      Case "str"
        If counter1 < 20 Then
          Call PutVar("scripts\charextras\" & GetPlayerName(index) & ".ini", "PlayerDevSystem", "str", Int(counter1) )
        Else
          Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 1)
          Call BattleMsg(index, "Your strength has increased due to frequent practice.", 12, 1)

        End If
      End Select
    End Sub

    ```
    thanks
  5. hey i have a sub with a "str" case that i need to run

    i am using```
    Call Warconn_PlayerDevSystem(index,"str")

    ```  in my onattack sub

    when i attack it is suppost to say "this is working" at the very beginning, but nothing comes up.

    do i have the right commands, or what should i put

    the name of the sub is Warconn_PlayerDevSystem

    thanks
  6. lol you put  ""    Like that but with no quotes.

    would anyone be interested in make space sprites, the like individual ships, for me.  If you are, please PM me.

    Thanks
  7. hey, i am using a onclick tile, but i want to check if the player is next ontop of the tile that he clicked. i was going to check if the players x and y were equal to the onclicks x and y, but i cannot find the script for the onclicks x and y.

    does anyone have this piece of code, or have a better way to do this.

    Thanks
  8. hey, i am making a space RPG, called New Colony, but i cannot find any like space sprites, like ships and planets, does anyone no were i can find some, or does anyone have any i can use.  Thanks
  9. hey, when ever i place a PH, i set the item to credits, then i set the amount to 0, and when i walk on the spot, all it does is say the house is not for sale, is there any tutorials or anything explaining how to make a PH, or can someone help me out and explain it.  Thanks
  10. hey, i dont no what version of eclispe i have, but when ever i run the client, and type /mapeditor into the text box, it says invalid.  when i open the server, and click the map editor button, nothing happens.    should  i just download a new one, or no.  what is wrong
×
×
  • Create New...