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

Dastyruck

Members
 View Profile  See their activity

  • Posts

    128

  • Joined

  • Last visited

    Never

 Content Type 

Posts posted by Dastyruck

    Crafting System Help

    in Programming Questions

    Posted

    K, so I am making my own crafting system for my game and this is the Craft sub.

    > '********************************
    > Sub Craft(index, Item, Matone, Valone, Mattwo, Valtwo, Matthree, Valthree, Matfour, Valfour, Matfive, Valfive, Matsix, Valsix, Matseven, Valseven)
    > '********************************
    > Call PlayerMsg(Index, "4", RED)
    > Dim matnum
    > Dim slot
    > Dim has
    > Dim need
    > Dim mathas
    >
    > matnum = 0
    > mathas = 0
    >
    > If Matone = 0 Then
    > Else
    >     matnum += 1
    > End If
    > If Mattwo = 0 Then
    > Else
    >     matnum += 1
    > End If
    > If Matthree = 0 Then
    > Else
    >     matnum += 1
    > End If
    > If Matfour = 0 Then
    > Else
    >     matnum += 1
    > End If
    > If Matfive = 0 Then
    > Else
    >     matnum += 1
    > End If
    > If Matsix = 0 Then
    > Else
    >     matnum += 1
    > End If
    > If Matseven = 0 Then
    > Else
    >     matnum += 1
    > End If
    >
    > If matnum >= 1 Then
    > slot=1
    > has = 0
    > need = 1           
    >
    > Do While slot < 25 
    > If Int(getplayerinvitemnum(index,slot))=Int(Matone) Then
    >     If Int(getplayerinvitemval(index,slot))=Int(Valone) Then
    >     slot=25
    >     has = 1
    >     End If                             
    > End If 
    > slot=slot+1
    > Loop
    > If Int(has) <> Int(need) Then
    >     Call PlayerMsg(Index, "You do not have the proper items or proper amount of items.", RED)
    >     Exit Sub
    > Else
    >     mathas += 1
    >    
    > End If
    > End If
    >
    > If matnum >= 2 Then
    > slot=1
    > has = 0
    > need = 1           
    >
    > Do While slot < 25 
    > If Int(getplayerinvitemnum(index,slot))=Int(Mattwo) Then
    >     If Int(getplayerinvitemval(index,slot))=Int(Valtwo) Then
    >     slot=25
    >     has = 1
    >     End If                             
    > End If 
    > slot=slot+1
    > Loop
    > If Int(has) <> Int(need) Then
    >     Call PlayerMsg(Index, "You do not have the proper items or proper amount of items.", RED)
    >     Exit Sub
    > Else
    >     mathas += 1
    >    
    > End If
    > End If
    >
    > If matnum >= 3 Then
    > slot=1
    > has = 0
    > need = 1           
    >
    > Do While slot < 25 
    > If Int(getplayerinvitemnum(index,slot))=Int(Matthree) Then
    >     If Int(getplayerinvitemval(index,slot))=Int(Valthree) Then
    >     slot=25
    >     has = 1
    >     End If                             
    > End If 
    > slot=slot+1
    > Loop
    > If Int(has) <> Int(need) Then
    >     Call PlayerMsg(Index, "You do not have the proper items or proper amount of items.", RED)
    >     Exit Sub
    > Else
    >     mathas += 1
    >    
    > End If
    > End If
    >
    > If matnum >= 4 Then
    > slot=1
    > has = 0
    > need = 1           
    >
    > Do While slot < 25 
    > If Int(getplayerinvitemnum(index,slot))=Int(Matfour) Then
    >     If Int(getplayerinvitemval(index,slot))=Int(Valfour) Then
    >     slot=25
    >     has = 1
    >     End If                             
    > End If 
    > slot=slot+1
    > Loop
    > If Int(has) <> Int(need) Then
    >     Call PlayerMsg(Index, "You do not have the proper items or proper amount of items.", RED)
    >     Exit Sub
    > Else
    >     mathas += 1
    >    
    > End If
    > End If
    >
    > If matnum >= 5 Then
    > slot=1
    > has = 0
    > need = 1           
    >
    > Do While slot < 25 
    > If Int(getplayerinvitemnum(index,slot))=Int(Matfive) Then
    >     If Int(getplayerinvitemval(index,slot))=Int(Valfive) Then
    >     slot=25
    >     has = 1
    >     End If                             
    > End If 
    > slot=slot+1
    > Loop
    > If Int(has) <> Int(need) Then
    >     Call PlayerMsg(Index, "You do not have the proper items or proper amount of items.", RED)
    >     Exit Sub
    > Else
    >     mathas += 1
    >    
    > End If
    > End If
    >
    > If matnum >= 6 Then
    > slot=1
    > has = 0
    > need = 1           
    >
    > Do While slot < 25 
    > If Int(getplayerinvitemnum(index,slot))=Int(Matsix) Then
    >     If Int(getplayerinvitemval(index,slot))=Int(Valsix) Then
    >     slot=25
    >     has = 1
    >     End If                             
    > End If 
    > slot=slot+1
    > Loop
    > If Int(has) <> Int(need) Then
    >     Call PlayerMsg(Index, "You do not have the proper items or proper amount of items.", RED)
    >     Exit Sub
    > Else
    >     mathas += 1
    >    
    > End If
    > End If
    >
    > If matnum >= 7 Then
    > slot=1
    > has = 0
    > need = 1           
    >
    > Do While slot < 25 
    > If Int(getplayerinvitemnum(index,slot))=Int(Matseven) Then
    >     If Int(getplayerinvitemval(index,slot))=Int(Valseven) Then
    >     slot=25
    >     has = 1
    >     End If                             
    > End If 
    > slot=slot+1
    > Loop
    > If Int(has) <> Int(need) Then
    >     Call PlayerMsg(Index, "You do not have the proper items or proper amount of items.", RED)
    >     Exit Sub
    > Else
    >     mathas += 1
    > End If
    > End If
    >
    > If mathas = matneed Then
    >     If mathas >= 1 Then
    >         Call quest_Take_Item(index, Matone, Valone)
    >     End If
    >     If mathas >= 2 Then
    >         Call quest_Take_Item(index, Mattwo, Valtwo)
    >     End If
    >     If mathas >= 3 Then
    >         Call quest_Take_Item(index, Matthree, Valthree)
    >     End If
    >     If mathas >= 4 Then
    >         Call quest_Take_Item(index, Matfour, Valfour)
    >     End If
    >     If mathas >= 5 Then
    >         Call quest_Take_Item(index, Matfive, Valfive)
    >     End If
    >     If mathas >= 6 Then
    >         Call quest_Take_Item(index, Matsix, Valsix)
    >     End If
    >     If mathas >= 7 Then
    >         Call quest_Take_Item(index, Matseven, Valseven)
    >     End If
    >     Call quest_give_item(index, Item, 1)
    > End If
    >
    > End Sub

    This is the Call that initiates it, So far it gets thorugh PlayerMsg 1,2, and 3 but is halting at 4, couldnt find a problem and need help.

    > '********************************
    > Sub MenuScripts(Index, Clicked_Index, Menu_Type)
    > '********************************
    > Dim MenuTitle
    > Dim FieldMessage
    >
    > MenuTitle = getplayermenuclicktitle(Index)
    > FieldMessage = getplayermenuclickmsg(Index)
    >
    > Select Case Menu_Type
    > Case 1
    >          
    >
    > Case 2
    >
    > Case 3
    > Call PlayerMsg(Index, "1", RED)
    >             Call PlayerMsg(Index, "2", RED)
    >                       If Clicked_Index = 1 Then
    >                       Call PlayerMsg(Index, "3", RED)
    >                             Call Craft(Index, 3, 8, 2, 45, 3, 44, 1, 46, 1, 0,0,0,0,0,0) 
    >                       End If
    > End Select
    > End Sub

    Thanks in advance.

    Im baffled…

    in Programming Questions

    Posted

    I made a carbon copy of my woodcut skill but with different names…

    Here is my scripted tile sub, case 3 is what im using for fishing.

    ```
    '********************************
    Sub ScriptedTile(Index, Script)
    '********************************
    Dim number
    Dim slot
    Dim has
    Dim value
    Dim mun
    Dim need

    Select Case Script
    Case 1 
        number = 7
    slot=1
    has = 0
    need = 1           
                      Do While slot < 25   
                          If Int(getplayerinvitemnum(index,slot))=Int(number) Then
                            slot=25
                            has = 1                             
                          End If 
                      slot=slot+1
                      Loop
                      If Int(has) <> Int(need) Then
                      Call PlayerMsg(Index, "You do not have the proper item.", RED)
                      Else
                      Call WoodCut(Index)
                      End If
    Exit Sub
    Case 2
        number = 1
        value = 25
        slot=1
    has = 0
    need = 1           
                      Do While slot < 25   
                          If Int(getplayerinvitemnum(index,slot))=Int(number) Then
                            If Int(value) <= Int(getplayerinvitemvalue(index,slot)) Then

                                has = 1
                                mun = Int(getplayerinvitemvalue(index,slot) )
                                slot=25
                            End If                           
                          End If 
                      slot=slot+1
                      Loop

                      If Int(has) <> Int(need) Then
                      Call PlayerMsg(Index, "You need 25 gold to be healed", WHITE)
                      Else 
                            Call PlayerMsg(Index, "You have been fully restored of your health.", WHITE)
                            Call quest_Take_Item(index, number, value)
                            Call Regain(Index)

                      End If
    Exit Sub
    Case 3 
    number = 13
    slot=1
    has = 0
    need = 1           
                      Do While slot < 25   
                          If Int(getplayerinvitemnum(index,slot))=Int(number) Then
                            slot=25
                            has = 1                             
                          End If 
                      slot=slot+1
                      Loop
                      If Int(has) >= Int(need) Then
                      Call PlayerMsg(index, "You did not harvest any wood.", GREEN)
                                  Call Fishing(Index)
                        Call PlayerMsg(index, "You did not harvest any wood.", GREEN)

                      Else
                          Call PlayerMsg(Index, "You do not have the proper item.", RED)
                      End If
    Exit Sub
    Case Else
    Call PlayerMsg(Index, "No tile script found. Please contact an admin to solve this problem.", WHITE)
    Exit Sub
    End Select
    End Sub
    ```
    And here is my Fishing sub which is just like my woodcut sub but not working…

    ```
    '********************************
    Sub Fishing(index)
    '********************************
    Call PlayerMsg(index, "You did not harvest any wood.", GREEN)
    Dim success
    Dim slot
    Dim number 
    Dim level 
    Dim times
    Dim fishy
    Dim fishynum
    Call PlayerMsg(index, "You did not harvest any wood.", GREEN)
    number = Rand(1,61)
    slot = 1
    If number < 20 Then
        fishy = "clam"
        fishynum = 20
    Else If number > 20 AND number < 35 Then
        fishy = "mackeral"
        fishynum = 12
    Else If number > 35 AND number < 50 Then
        fishy = "bass"
        fishynum = 18
    Else If number > 50 AND number < 60 Then
        fishy = "flounder"
        fishynum = 19
    Else If number > 60 AND number < 65 Then
        fishy = "swordfish"
        fishynum = 21
    Else If number = 61 Then
        fishy = "dead puppy"
        fishynum = 22
    End If
    Call PlayerMsg(index, "You did not harvest any wood.", GREEN)
    If Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini","fishing","level") <> "" Then 
    Call PlayerMsg(index, "You did not harvest any wood.", GREEN)
    level = Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini","fishing","level")
    success = Rand(Int(level), 5)
    times = Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini","fishing","times")
        If success = 1 Then
            Do While slot < 25
            If Getplayerinvitemnum( index, Int( slot ) ) = 0  Then
                Call SetPlayerInvItemNum(index, Int( slot ), Int( fishynum ) )
                Call SetPlayerInvItemValue(index, Int( slot ), Int(1) )
                Call SendInventoryUpdate(index, Int(slot) )
                slot = 25
            End If
            slot = slot + 1
            Loop 
            Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","fishing","times",Int( times ) + 1)
            If times = 50 Then
                If level < 4 Then
                    Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","fishing","level",Int( level) + 1)
                    Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","fishing","times",0)
                End If
            End If   
            Call PlayerMsg(index, "You caught 1 " & fishy & "!", GREEN) 

        Else
        Call PlayerMsg(index, "You did not catch anything.", GREEN)
        End If

    Else
    Call PlayerMsg(index, "You did not harvest any wood.", GREEN)
        times = 0
        level = 1
        Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","fishing","level",Int(level)+0)
        Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","fishing","times",Int(times)+0)

        number = Rand(1,99)
        slot = 0
        level = Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini","fishing","level")
        success = Rand(Int(level), 5)
        times = Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini","fishing","times")

        If success = 1 Then
            Do While slot < 25
            If Getplayerinvitemnum( index, Int( slot ) ) = 0 Then
                Call SetPlayerInvItemNum(index, Int( slot ), Int( fishynum ) )
                Call SetPlayerInvItemValue(index, Int( slot ), Int(1) )
                Call SendInventoryUpdate(index, Int(slot) )
                slot = 25
            End If
            slot = slot + 1
            Loop 
            Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","fishing","times",Int( times ) + 1)
            If times = 50 Then
                If level < 4 Then
                    Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","fishing","level",Int( level) + 1)
                    Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","fishing","times",0)
                End If
            End If

            Call PlayerMsg(index, "You caught 1 " & fishy & "!", GREEN) 

        Else
        Call PlayerMsg(index, "You did not catch anything.", GREEN)
        End If

    End If
    End Sub
    ```

    Scripted items not working?

    in Programming Questions

    Posted

    So, I was putting in some scripted spells and when I finally got it working, scripted items dont work at all…

    Here is the scripted item sub.

    ```
    '********************************
    Sub ScriptedItem(Index, Script)
    '********************************
    Dim level
    Dim needs
    Dim number 
    Dim numbers
    Dim slot
    Dim has
    Dim value
    Dim mun
    Dim need
    Select Case Script
    Case 0
        needs = 6
        number = 14
        numbers = 2
        value = 1
        slot=1
    has = 0
    need = 1
        level = GetPlayerMAGI(Index)
    If level < needs Then
        Call PlayerMsg(Index, "Your magic is too low to use this.", WHITE)
    Else

                      Do While slot.
                      0 < 25   
                          If Int(getplayerinvitemnum(index,slot))=Int(number) Then
                            If Int(value) <= Int(getplayerinvitemvalue(index,slot)) Then

                                has = 1
                                mun = Int(getplayerinvitemvalue(index,slot) )
                                slot=25
                            End If                           
                          End If 
                      slot=slot+1
                      Loop
                      slot=1
                      If Int(has) <> Int(need) Then
                      Else 
                            Call quest_Take_Item(index, number, value)
                            Do While slot < 25
                            If Getplayerinvitemnum( index, Int( slot ) ) = 0 Then
                                Call SetPlayerInvItemNum(index, Int( slot ), Int( numbers ) )
                                Call SetPlayerInvItemValue(index, Int( slot ), Int(1) )
                                Call SendInventoryUpdate(index, Int(slot) )
                                slot = 25
                            End If
                            slot = slot + 1
                            Loop
                      End If
    End If
    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
    ```

    Skill Script Help

    in Programming Questions

    Posted

    Alright, I made this skill script for woodcutting which is being called by a scripted tile.

    I have it so if the player doesnt have any data it creates data but this isnt working at all.

    If someone has data it works, but if they dont… it doesnt work... sooooo...

    Here is the code.

    ```
    '********************************
    Sub WoodCut(index)
    '********************************
    Dim success
    Dim slot
    Dim number 
    Dim level 
    Dim times

    number = 8
    slot = 1
    level = Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","level")
    success = Rand(Int(level), 5)
    times = Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","times")
    If Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","level") <> "" Then
        Call PlayerMsg(index, "If", GREEN)
        If success = 1 Then
            Do While slot < 25
            If Getplayerinvitemnum( index, Int( slot ) ) = Int( number ) Then
                Call SetPlayerInvItemNum(index, Int( slot ), Int( number ) )
                Call SetPlayerInvItemValue(index, Int( slot ), Int(1) )
                Call SendInventoryUpdate(index, Int(slot) )
                slot = 25
            End If
            slot = slot + 1
            Loop 
            Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","times",Int( times ) + 1)
            If times = 50 Then
                If level < 4 Then
                    Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","level",Int( level) + 1)
                    Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","times",0)
                End If
            End If   
            Call PlayerMsg(index, "You successfully harvested 1 wood!", GREEN) 

        Else
        Call PlayerMsg(index, "You did not harvest any wood.", GREEN)
        End If

    Else
    Call PlayerMsg(index, "Else", GREEN)
        times = 0
        level = 1
        Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","level",Int(level)+0)
        Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","times",Int(times)+0)

        number = 8
        slot = 1
        level = Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","level")
        success = Rand(Int(level), 5)
        times = Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","times")

        If success = 1 Then
            Do While slot < 25
            If Getplayerinvitemnum( index, Int( slot ) ) = 0 Then
                Call SetPlayerInvItemNum(index, Int( slot ), Int( number ) )
                Call SetPlayerInvItemValue(index, Int( slot ), Int(1) )
                Call SendInventoryUpdate(index, Int(slot) )
                slot = 25
            End If
            slot = slot + 1
            Loop 
            Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","times",Int( times ) + 1)
            If times = 50 Then
                If level < 4 Then
                    Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","level",Int( level) + 1)
                    Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","times",0)
                End If
            End If

            Call PlayerMsg(index, "You successfully harvested 1 wood!", GREEN) 

        Else
        Call PlayerMsg(index, "You did not harvest any wood.", GREEN)
        End If

    End If
    Call PlayerMsg(index, "End", GREEN)
    End Sub
    ```

    Quest Script I made not working?

    in Programming Questions

    Posted

    Hey all, I made this quest script and its not working at all…

    So, can you give it a looksee?

    Also, does putvar make a new ini if one doesnt exist already?

    Here is what calls it...

    > '********************************
    > Sub ScriptedNPC(Index, Script)
    > '********************************
    > Select Case Script
    > Case 0
    > If getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "Start_Msg") <> "" Then
    > Call Quests(Index)
    > Else
    > Call New_Quest(Index)
    > End If
    >
    > Exit Sub
    >
    > Case Else
    > Call PlayerMsg(Index, "No NPC script found. Please contact an admin to solve this problem.", WHITE)
    > Exit Sub
    > End Select
    > End Sub

    Here is one of the subs…

    > '********************************
    > Sub Quest(index) 
    > '********************************
    > Dim status
    > Dim start_msg
    > Dim questing_msg
    > Dim end_msg
    > Dim completed_msg
    > Dim space_msg
    > Dim has_needed
    > Dim need_count
    > Dim give_count
    > Dim need_num
    > Dim give_num
    > Dim slot
    > Dim count
    > Dim found 
    > Dim durability
    > Dim experience
    >
    > status = getvar("scripts\charextras\" & GetPlayerName(index) & ".ini", "QUEST", GetPlayerMap(index))
    > start_msg = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Start_Msg)
    > questing_msg = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Questing_Msg)
    > end_msg = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", End_Msg)
    > completed_msg = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Completed_Msg)
    > space_msg = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Space_Msg)
    > need_count = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", need_count)
    > give_count = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", give_count)
    > need_num = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", need_num)
    > give_num = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", give_num)
    > experience = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Experience)
    >
    > If status = 0 Then 
    >     Call PlayerMsg(index, start_msg, WHITE)
    >         Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", "QUEST", GetPlayerMap(index), 1 )
    >     Else If status = 1 Then
    >     slot = 0
    >     Do While slot < 25
    >         If Getplayerinvitemnum(index, Int(slot)) = need_num Then
    >             If Gatplayerinvitemvalue(index, Int(slot)) = need_count Then
    >                 Call SetPlayerInvItemNum(index, Int(slot), 0)
    >                 Call SetPlayerInvItemValue(index, Int(slot), Int(0))
    >                 Call SendInventoryUpdate(index, Int(slot)) 
    >             Else
    >                 Call PlayerMsg(index, questing_msg, WHITE)
    >                 Exit Sub
    >             End If
    >             slot = 25
    >         Else
    >             Call PlayerMsg(index, questing_msg, WHITE)
    >             Exit Sub
    >         End If
    >         slot = slot + 1
    >     Loop
    >     slot = 0
    >     Do While slot < 25
    >         If Getplayerinvitemnum(index, Int(slot)) = 0 Then
    >             Call SetPlayerInvItemNum(index, Int(slot), Int(give_num)
    >             Call SetPlayerInvItemValue(index, Int(slot), Int(give_value))
    >             Call SendInventoryUpdate(index, Int(slot))
    >             slot = 25
    >         End If
    >         slot = slot + 1
    >     Loop
    >             Call PlayerMsg(index, end_msg, WHITE)
    >             Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", "QUEST", GetPlayerMap(index), 2 )
    >     Else If status = 2 Then 
    >     Call PlayerMsg(index, completed_msg, WHITE)
    >     End If
    >
    > Call PlayerWarp( index, Map, X, Y)
    >
    > End Sub

    Here is the Last Sub…

    > '********************************
    > Sub New_Quest(index) 
    > '********************************
    >
    > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Start_Msg, Bring me a silver key!)
    > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Questing_Msg, Have you got a silver key yet!?)
    > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", End_Msg, Thank you kind sir, here is your reward!)
    > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Completed_Msg, Thanks for your help earlier!)
    > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Space_Msg, Looks like you got your hands full… come back later)
    > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Experience, 200)
    > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", need_count, 1)
    > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", need_num, 5)
    > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", give_count, 1)
    > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", give_num, 1)
    >
    > End Sub

    Problem with script…

    in Programming Questions

    Posted

    Hey everyoine, I am making a script for a game and its not working… at all...

    I cant see anything wrong with it but w/e take a look...

    This is the sub...

    > '********************************
    > Sub Bind(Index)
    > '********************************
    >
    > Dim Map
    > Dim X
    > Dim Y
    > Call PlayerMsg(Index, "… More trying...")
    > Map = GetPlayerMap(Index)
    > X = GetPlayerX(Index)
    > Y = GetPlayerY(Index)
    > Call PlayerMsg(Index, "...almost done...")
    > Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","bind","map", Map)
    > Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","bind","x", X)
    > Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","bind","y", Y)
    >
    > Call PlayerMsg(Index, "...You are now bound here!", WHITE)
    >
    > End Sub

    And.. here is what im using to call it…

    > '********************************
    > Sub ScriptedTile(Index, Script)
    > '********************************
    >
    > Select Case Script
    > Case 0
    > If GetPlayerWeaponSlot(Index) = 1 Then
    > Call WoodCut(Index)
    > Else   
    > Call WoodCut(Index)
    > Call PlayerMsg(Index, "Please equip a proper item.", RED)
    > End If
    > Exit Sub
    > Case 1
    > Call Bind(Index)
    > Call PlayerMsg(Index, "Trying to bind…")
    > Exit Sub
    > Case Else
    > Call PlayerMsg(Index, "No tile script found. Please contact an admin to solve this problem.", WHITE)
    > Exit Sub
    > End Select
    > End Sub

    Thanks for the help…

    Why VB6?

    in Q & A

    Posted

    I think Ill wait till EE3 comes out before I start converting, if I started now I would finish right after EE3 came out and then I would just have EE2.7 in another language and people wouldn't use it…

    Why VB6?

    in Q & A

    Posted

    I wish I could see the vb6 code so I can see what my VS 2008 is leaving out, if someone could help me see what is missing, I might be able to replace it… Anyone wanna help?

    Why VB6?

    in Q & A

    Posted

    So why is all of eclipse mainly programmed in VB6? I have VS 2008 and when I tried to open up the source it just converted everything as best it could to vb.net, and there were only like 100-300 lines of code that it couldn't find a replacement for… I think that it would be fairly easy to manually replace those lines of code and just switch it to vb.net where you can get express source editors for free...

    NPC Broken?

    in Q & A

    Posted

    None of my NPCs are doing anything they are supposed to do except walk around… They dont listen to behavoir and dont take any damage... Whats wrong???

    This has probably been asked before, but the search is broken and 300 pages of question pages to root through just doesnt sound at all productive...
×
×
  • Create New...