Eclipse - Free 2D Mmorpg Maker
September 02, 2010, 10:18:10 PM *
Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
 
   Home   Shop Arcade chat Login Register  
 
 
   
 
Eclipse - Free 2D Mmorpg Maker | Eclipse | Scripting | Script Database | Old Scripts (Moderators: Aksel, Captain evilbunnie) | Chest script(fully editable with no access to server)
collapse

* No Spam Or Websites

Refresh History
  • Ertzel: So... Anyone with basic/none/limited photoshop or even paint skills want to make some money converting sprites for me?
    Today at 10:07:35 PM
  • Gamma™: weaver why are you oflfine on H&H? :S
    Today at 10:04:26 PM
  • Ertzel: Ya, only one try per knife, my one try failed :(
    Today at 10:00:17 PM
  • LegendWeaver: is it one use?
    Today at 09:43:15 PM
  • Ertzel: Wish I didnt spend my 1k+ credits to buy the stupid knife that failed at stealing Robins credits >.<
    Today at 09:42:42 PM
  • Wraith: ) Kreator!
    Today at 09:06:52 PM
  • Wraith: yes! you were! (in red text
    Today at 09:06:46 PM
  • ToshiroHayate: Kreator!
    Today at 08:25:02 PM
  • Kreator: o_0 Was I supposed to Wraith?
    Today at 08:16:02 PM
  • [Pie] ICT: Don't worry.. I commented.
    Today at 07:55:08 PM
  • Wraith: Ay, kreator, wtf is up with you not posting anything about my new cliffs??
    Today at 07:50:36 PM

* Recent Topics

[EO] Attaching Problem. by Ertzel
[Today at 10:11:57 PM]
Project Vertigo [2d Tile-based Side-Scrolling Engine] by Miguu
[Today at 10:03:22 PM]
Zacaras Empire (Hiring) by Ertzel
[Today at 08:43:54 PM]
custom cliff tiles by ToshiroHayate
[Today at 08:29:15 PM]
.: RPG Kingdom :. by LegendWeaver
[Today at 08:25:20 PM]
What do you think? by [Pie] ICT
[Today at 07:54:54 PM]
[Show Off] Aztec Stuff by [Pie] ICT
[Today at 07:50:07 PM]
So I herd you liek mudkipz by Kreator
[Today at 07:36:52 PM]
Haven and Hearth: Epic Screenshot Thread by Tompwnage™
[Today at 07:14:21 PM]
The Lonliest Star [RP] by DDunit
[Today at 07:09:46 PM]

* Who's Online


Site Author : Topic: Chest script(fully editable with no access to server)  (Read 3452 times)
0 Members and 1 Guest are viewing this topic.
July 12, 2006, 03:30:44 AM
Brutal - Zeldo
Ex-Eclipse Programmer
Veteran
Active Member
*
User No : 1283
Posts: 303
  • 0 credits
  • View Inventory
  • Send Money To Brutal - Zeldo
    • Pie
    • View Profile
    Difficuly unknown/5 (someone tell me and ill change :p)

    By: Brutal(with some help of baron if hes doesent mind I left in his credits)

    Chest Script that allows you to have 5 chest * how ever many maps you have while only useing 5 scripted tiles
    and is compleately editable from the client(you need no access to server files)

    Ok First add this at the bottom of you Main.txt

    Code: [Select]

    Sub make_chestini(index)
    On Error Resume next
    Dim chest__num
    Dim chest__numb
    Dim new_chest_max
    Dim make_amount_chests

    chest__num = GetVar("Chests.ini " , "DATA"  , "Amountmade")
    make_amount_chests = Int(GetVar("Chests.ini " , "DATA"  , "makeamount"))

    If chest__num = 0 Then
    chest__num = 1
    Call PutVar("Chests.ini " , "DATA" , "Editingchestnum", Int(0))
    Call PutVar("Chests.ini " , "DATA" , "whatedited", Int(0))
    Do While chest__num <= make_amount_chests
    Call PutVar("Chests.ini " , "CHEST" & chest__num , "stackable", "")
    Call PutVar("Chests.ini " , "CHEST" & chest__num , "itemnum", "")
    Call PutVar("Chests.ini " , "CHEST" & chest__num , "itemamount", "")
    Call PutVar("Chests.ini " , "CHEST" & chest__num , "message", "")
    chest__num = chest__num+1
    LOOP
    Call PutVar("Chests.ini " , "DATA" , "Amountmade", Int(make_amount_chests))

    ElseIf chest__num > 0 Then
    new_chest_max = chest__num+make_amount_chests
    chest__num = chest__num+1
    Do While chest__num <= new_chest_max
    Call PutVar("Chests.ini " , "CHEST" & chest__num , "stackable", "")
    Call PutVar("Chests.ini " , "CHEST" & chest__num , "itemnum", "")
    Call PutVar("Chests.ini " , "CHEST" & chest__num , "itemamount", "")
    chest__num = chest__num+1
    LOOP
    Call PutVar("Chests.ini " , "DATA" , "Amountmade", Int(new_chest_max))
    End If
    End Sub

    '******************************************
    Sub chest_1_sub(index)'                   *
    'By Brutal(with a little of barons script)*
    '******************************************
    On Error Resume next
    Dim chest_num
    Dim done_chest_check
    Dim item_num
    Dim item_amount
    Dim stackablea

    If Int(GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST1","has_data")) < 0 Then
    Call Putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST1","number", 0)
    Call Putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST1","has_data", 1)
    Call Playermsg(index, "Made Chest1 template for map", 14)
    Call Playermsg(index, "Credits go to Brutal & Baron(mostly Baron on the template makeing part :P) - http://barony.deviantart.com/", 14)

    ElseIf Int(GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST1","has_data")) = 1 Then
    Call Playermsg(index, "You Must First Type /mapchest1 on this map and follow instructions to use this chest", 14)

    ElseIf Int(GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST1","has_data")) = 2 Then

    chest_num = Getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST1","number")
    done_chest_check = GetVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHEST" & GetPlayerCharNum(Index) , "Chest" & chest_num)
    item_num = Int(GetVar("Chests.ini " , "CHEST" & chest_num , "itemnum"))
    item_amount = Int(GetVar("Chests.ini " , "CHEST" & chest_num , "itemamount"))
    stackablea = GetVar("Chests.ini " , "CHEST" & chest_num , "stackable")
    chest_1_message = GetVar("Chests.ini " , "CHEST" & chest_num , "message")

        If done_chest_check = 0 Then
        Call PlayerMsg(index, chest_1_message, 2)
        Call GiveItemb(index, item_num, item_amount, stackablea)
        Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHEST" & GetPlayerCharNum(Index) , "Chest" & chest_num , 1)
        ElseIf done_chest_check = 1 Then
        Call PlayerMsg(index, "Its Empty.", 2)
        End If
    End If
    End Sub

    '******************************************
    Sub chest_2_sub(index)'                   *
    'By Brutal(with a little of barons script)*
    '******************************************
    On Error Resume next
    Dim chest_num2
    Dim done_chest_check2
    Dim item_num2
    Dim item_amount2
    Dim stackablea2

    If Int(GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST2","has_data")) < 0 Then
    Call Putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST2","number", 0)
    Call Putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST2","has_data", 1)
    Call Playermsg(index, "Made Chest2 template for map", 14)
    Call Playermsg(index, "Credits go to Brutal & Baron(mostly Baron on the template makeing part :P) - http://barony.deviantart.com/", 14)

    ElseIf Int(GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST2","has_data")) = 1 Then
    Call Playermsg(index, "You Must First Type /mapchest2 on this map and follow instructions to use this chest", 14)

    ElseIf Int(GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST2","has_data")) = 2 Then

    chest_num2 = Getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST2","number")
    done_chest_check2 = GetVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHEST" & GetPlayerCharNum(Index) , "Chest" & chest_num2)
    item_num2 = Int(GetVar("Chests.ini " , "CHEST" & chest_num2 , "itemnum"))
    item_amount2 = Int(GetVar("Chests.ini " , "CHEST" & chest_num2 , "itemamount"))
    stackablea2 = GetVar("Chests.ini " , "CHEST" & chest_num2 , "stackable")
    chest_2_message = GetVar("Chests.ini " , "CHEST" & chest_num2 , "message")

        If done_chest_check2 = 0 Then
        Call PlayerMsg(index, chest_2_message, 2)
        Call GiveItemb(index, item_num2, item_amount2, stackablea2)
        Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHEST" & GetPlayerCharNum(Index) , "Chest" & chest_num2 , 1)
        ElseIf done_chest_check2 = 1 Then
        Call PlayerMsg(index, "Its Empty.", 2)
        End If
    End If
    End Sub

    '******************************************
    Sub chest_3_sub(index)'                   *
    'By Brutal(with a little of barons script)*
    '******************************************
    On Error Resume next
    Dim chest_num3
    Dim done_chest_check3
    Dim item_num3
    Dim item_amount3
    Dim stackablea3

    If Int(GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST3","has_data")) < 0 Then
    Call Putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST3","number", 0)
    Call Putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST3","has_data", 1)
    Call Playermsg(index, "Made Chest3 template for map", 14)
    Call Playermsg(index, "Credits go to Brutal & Baron(mostly Baron on the template makeing part :P) - http://barony.deviantart.com/", 14)

    ElseIf Int(GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST3","has_data")) = 1 Then
    Call Playermsg(index, "You Must First Type /mapchest3 on this map and follow instructions to use this chest", 14)

    ElseIf Int(GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST3","has_data")) = 2 Then

    chest_num3 = Getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST3","number")
    done_chest_check3 = GetVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHEST" & GetPlayerCharNum(Index) , "Chest" & chest_num3)
    item_num3 = Int(GetVar("Chests.ini " , "CHEST" & chest_num3 , "itemnum"))
    item_amount3 = Int(GetVar("Chests.ini " , "CHEST" & chest_num3 , "itemamount"))
    stackablea3 = GetVar("Chests.ini " , "CHEST" & chest_num3 , "stackable")
    chest_3_message = GetVar("Chests.ini " , "CHEST" & chest_num3 , "message")

        If done_chest_check3 = 0 Then
        Call PlayerMsg(index, chest_3_message, 2)
        Call GiveItemb(index, item_num3, item_amount3, stackablea3)
        Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHEST" & GetPlayerCharNum(Index) , "Chest" & chest_num3 , 1)
        ElseIf done_chest_check3 = 1 Then
        Call PlayerMsg(index, "Its Empty.", 2)
        End If
    End If
    End Sub

    '******************************************
    Sub chest_4_sub(index)'                   *
    'By Brutal(with a little of barons script)*
    '******************************************
    On Error Resume next
    Dim chest_num4
    Dim done_chest_check4
    Dim item_num4
    Dim item_amount4
    Dim stackablea4

    If Int(GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST4","has_data")) < 0 Then
    Call Putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST4","number", 0)
    Call Putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST4","has_data", 1)
    Call Playermsg(index, "Made Chest4 template for map", 14)
    Call Playermsg(index, "Credits go to Brutal & Baron(mostly Baron on the template makeing part :P) - http://barony.deviantart.com/", 14)

    ElseIf Int(GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST4","has_data")) = 1 Then
    Call Playermsg(index, "You Must First Type /mapchest4 on this map and follow instructions to use this chest", 14)

    ElseIf Int(GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST4","has_data")) = 2 Then

    chest_num4 = Getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST4","number")
    done_chest_check4 = GetVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHEST" & GetPlayerCharNum(Index) , "Chest" & chest_num4)
    item_num4 = Int(GetVar("Chests.ini " , "CHEST" & chest_num4 , "itemnum"))
    item_amount4 = Int(GetVar("Chests.ini " , "CHEST" & chest_num4 , "itemamount"))
    stackablea4 = GetVar("Chests.ini " , "CHEST" & chest_num4 , "stackable")
    chest_4_message = GetVar("Chests.ini " , "CHEST" & chest_num4 , "message")

        If done_chest_check4 = 0 Then
        Call PlayerMsg(index, chest_4_message, 2)
        Call GiveItemb(index, item_num4, item_amount4, stackablea4)
        Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHEST" & GetPlayerCharNum(Index) , "Chest" & chest_num4 , 1)
        ElseIf done_chest_check4 = 1 Then
        Call PlayerMsg(index, "Its Empty.", 2)
        End If
    End If
    End Sub

    '******************************************
    Sub chest_5_sub(index)'                   *
    'By Brutal(with a little of barons script)*
    '******************************************
    On Error Resume next
    Dim chest_num5
    Dim done_chest_check5
    Dim item_num5
    Dim item_amount5
    Dim stackablea5

    If Int(GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST5","has_data")) < 0 Then
    Call Putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST5","number", 0)
    Call Putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST5","has_data", 1)
    Call Playermsg(index, "Made Chest5 template for map", 15)
    Call Playermsg(index, "Credits go to Brutal & Baron(mostly Baron on the template makeing part :P) - http://barony.deviantart.com/", 14)

    ElseIf Int(GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST5","has_data")) = 1 Then
    Call Playermsg(index, "You Must First Type /mapchest5 on this map and follow instructions to use this chest", 14)

    ElseIf Int(GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST5","has_data")) = 2 Then

    chest_num5 = Getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST5","number")
    done_chest_check5 = GetVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHEST" & GetPlayerCharNum(Index) , "Chest" & chest_num5)
    item_num5 = Int(GetVar("Chests.ini " , "CHEST" & chest_num5 , "itemnum"))
    item_amount5 = Int(GetVar("Chests.ini " , "CHEST" & chest_num5 , "itemamount"))
    stackablea5 = GetVar("Chests.ini " , "CHEST" & chest_num5 , "stackable")
    chest_5_message = GetVar("Chests.ini " , "CHEST" & chest_num5 , "message")

        If done_chest_check5 = 0 Then
        Call PlayerMsg(index, chest_5_message, 2)
        Call GiveItemb(index, item_num5, item_amount5, stackablea5)
        Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHEST" & GetPlayerCharNum(Index) , "Chest" & chest_num5 , 1)
        ElseIf done_chest_check5 = 1 Then
        Call PlayerMsg(index, "Its Empty.", 2)
        End If
    End If
    End Sub




    Sub GiveItemb(index, item, value, gjshjr)
    If gjshjr = 1 Then
    SLOT = 1
    Do While SLOT < 24
    If GetPlayerInvItemNum(index, SLOT) = 0 Then
    Call SetPlayerInvItemNum(index, SLOT, item)
    Call SetPlayerInvItemValue(index, SLOT, GetPlayerInvItemValue(index, SLOT)+value)
    Call SendInventoryUpdate(index, SLOT)
    SLOT = 24
    ElseIf GetPlayerInvItemNum(index, SLOT) = item Then
    Call SetPlayerInvItemNum(index, SLOT, item)
    Call SetPlayerInvItemValue(index, SLOT, GetPlayerInvItemValue(index, SLOT)+value)
    Call SendInventoryUpdate(index, SLOT)
    SLOT = 24
    End If
    SLOT = SLOT+1
    Loop
    ElseIf gjshjr = 0 Then
    SLOT = 1
    Do While SLOT < 24
    If GetPlayerInvItemNum(index, SLOT) = 0 Then
    Call SetPlayerInvItemNum(index, SLOT, item)
    Call SetPlayerInvItemValue(index, SLOT, GetPlayerInvItemValue(index, SLOT)+value)
    Call SendInventoryUpdate(index, SLOT)
    SLOT = 24
    End If
    SLOT = SLOT+1
    Loop
    Else
    Call PlayerMsg(index, "hi", 8)
    End If
    End Sub


    Then Find This
    Code: [Select]
    If LCase(Mid(TextSay, 1, 9)) = "/warpmeto" Then
            If Len(TextSay) > 10 Then
                TextSay = Mid(TextSay, 10, Len(TextSay) - 9)
               
                ' Prevent hacking
                If GetPlayerAccess(index) < 2 Then
                    Call PlayerMsg(index, "You need be of a higher access to use this command!", 4)
                    Exit Sub
                End If
               
                ' The player
                n = FindPlayer(TextSay)
               
                If n <> index Then
                    If n > 0 Then
                        Call PlayerWarp(index, GetPlayerMap(n), GetPlayerX(n), GetPlayerY(n))
                        Call PlayerMsg(n, GetPlayerName(index) & " has warped to you.", 6)
                        Call PlayerMsg(index, "You have been warped to " & GetPlayerName(n) & ".", 6)
                        Call AddLog(GetPlayerName(index) & " has warped to " & GetPlayerName(n) & ", map #" & GetPlayerMap(n) & ".", ADMIN_LOG)
                    Else
                        Call PlayerMsg(index, "Player is not online.", 15)
                    End If
                Else
                    Call PlayerMsg(index, "You cannot warp to yourself!", 15)
                End If
            End If
            Exit Sub
        End If

    And Add this under it

    Code: [Select]
       If LCase(Mid(TextSay, 1, 9)) = "/mapchest" Then
    If Len(TextSay) >= 9 Then
    If GetPlayerAccess(index) > 0 Then
    On Error Resume next
    Dim edit_chest_num
    Dim chest_temp
    chest_temp = Mid(TextSay, 10, Len(TextSay) - 9)
    edit_chest_num = Getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHESTDATA","editing")
      n = Mid(TextSay, 10, Len(TextSay) - 9)
    If n > 0 Then
    If edit_chest_num = 0 Then
            Call Putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHESTDATA","editing", Int(chest_temp))
    Call Playermsg(index, "You Will now edit chest" & chest_temp & "'s chest number for this map type /mapchest(chest number you want it to be)", 14)
    ElseIf edit_chest_num > 0 Then
    Call Putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST" & edit_chest_num,"number", chest_temp)
    Call Putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHEST" & edit_chest_num,"has_data", 2)
    Call Putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "CHESTDATA","editing", 0)
    Call PlayerMsg(index, "You Edited Chest" & edit_chest_num & "'s number to " & chest_temp, 15)
            End If
    Else
            Call PlayerMsg(index, "Format:/mapchest~chest number you want to edit on this map(one of the five)(without the ~'s) then follow instructions", 4)
            End If
    Else
            Call PlayerMsg(index, "You Need Higher Access To use this command!", 4)
    End If
    End If
    Exit Sub
    End If



        If LCase(Mid(TextSay, 1, 10)) = "/editchest" Then
    If Len(TextSay) >= 10 Then
    If GetPlayerAccess(index) > 0 Then
    Dim uuuuu
            Dim ecn
    Dim we
    ecn = GetVar("Chests.ini", "DATA", "Editingchestnum")
    we = GetVar("Chests.ini", "DATA", "whatedited")
    n = Mid(TextSay, 11, Len(TextSay) - 10)
    If n > 0 Then
    If ecn = 0 Then
    Call PutVar("Chests.ini", "DATA", "Editingchestnum", Mid(TextSay, 11, Len(TextSay) - 10))
    Call PlayerMsg(index, "Now Type /editchest1 to edit the stackable , /editchest2 to edit the itemnum or /editchest3 to edit the itemamount or /editchest4 to edit the message sent upon chest open", 15)
    ElseIf ecn > 0 Then
      ecn = GetVar("Chests.ini", "DATA", "Editingchestnum")

    If GetVar("Chests.ini", "DATA", "whatedited") = 3 Then
    Call PutVar("Chests.ini", "CHEST" & ecn, "itemamount", Mid(TextSay, 11, Len(TextSay) - 10))
    Call PlayerMsg(index, "You Edited Chest" & ecn & "'s item amount to " & Mid(TextSay, 11, Len(TextSay) - 10), 15)
    Call PutVar("Chests.ini", "DATA", "Editingchestnum", 0)
    Call PutVar("Chests.ini", "DATA", "whatedited", 0)
    ElseIf GetVar("Chests.ini", "DATA", "whatedited") = 2 Then
    Call PutVar("Chests.ini", "CHEST" & ecn, "itemnum", Mid(TextSay, 11, Len(TextSay) - 10))
    Call PlayerMsg(index, "You Edited Chest" & ecn & "'s item number to " & Mid(TextSay, 11, Len(TextSay) - 10), 15)
    Call PutVar("Chests.ini", "DATA", "Editingchestnum", 0)
    Call PutVar("Chests.ini", "DATA", "whatedited", 0)
    ElseIf GetVar("Chests.ini", "DATA", "whatedited") = 1 Then
    uuuuu = Mid(TextSay, 11, Len(TextSay) - 10)
    If uuuuu = 1 Then
    Call PutVar("Chests.ini", "CHEST" & ecn, "stackable", Mid(TextSay, 11, Len(TextSay) - 10))
    Call PlayerMsg(index, "You Edited Chest" & ecn & "'s stackable to Yes", 15)
    Call PutVar("Chests.ini", "DATA", "Editingchestnum", 0)
    Call PutVar("Chests.ini", "DATA", "whatedited", 0)
    ElseIf uuuuu = 0 Then
    Call PutVar("Chests.ini", "CHEST" & ecn, "stackable", Mid(TextSay, 11, Len(TextSay) - 10))
    Call PlayerMsg(index, "You Edited Chest" & ecn & "'s stackable to No", 15)
    Call PutVar("Chests.ini", "DATA", "Editingchestnum", 0)
    Call PutVar("Chests.ini", "DATA", "whatedited", 0)
    Else
    Call PlayerMsg(index, "You Must Enter /editchest0 or /editchest1 in this position", 5)
    End If
    ElseIf GetVar("Chests.ini", "DATA", "whatedited") = 0 Then
    If Mid(TextSay, 11, Len(TextSay) - 10) < 5 Then
    Call PutVar("Chests.ini", "DATA", "whatedited", Mid(TextSay, 11, Len(TextSay) - 10))
    Call PlayerMsg(index, "Now type /editchest ~what you want the value to be(without the ~'s)(stackable: 0=no 1=yes)~", 15)
    Else
    Call PlayerMsg(index, "The Options are /editchest1 to edit the stackable , /editchest2 to edit the itemnum or /editchest3 to edit the itemamount /editchest4 to edit the message - You Said /editchest" & Mid(TextSay, 11, Len(TextSay) - 10), 15)
    End If
    ElseIf GetVar("Chests.ini", "DATA", "whatedited") = 4 Then
    Call PutVar("Chests.ini", "CHEST" & ecn, "message", Mid(TextSay, 11, Len(TextSay) - 10))
    Call PlayerMsg(index, "You Edited Chest" & ecn & "'s message to " & Mid(TextSay, 11, Len(TextSay) - 10), 15)
    Call PutVar("Chests.ini", "DATA", "Editingchestnum", 0)
    Call PutVar("Chests.ini", "DATA", "whatedited", 0)
    Else
    Call PlayerMsg(index, "The Options are /editchest1 to edit the stackable , /editchest2 to edit the itemnum or /editchest3 to edit the itemamount /editchest4 to edit the message", 15)
    End If

      End If
    Else
            Call PlayerMsg(index, "Format:/editchest~chest number you want to edit(without the ~'s) then follow instructions~", 4)
            End If
    Else
            Call PlayerMsg(index, "You Need Higher Access To use this command", 4)
    End If
    End If
    Exit Sub
    End If

        If LCase(Mid(TextSay, 1, 9)) = "/chestini" Then
    If Len(TextSay) >= 9 Then
    If GetPlayerAccess(index) > 0 Then
    n = Mid(TextSay, 10, Len(TextSay) - 9)
                If n > 0 Then
    If n < 101 Then
       Call PutVar("Chests.ini", "DATA", "makeamount", Mid(TextSay, 10, Len(TextSay) - 9))
                n = GetVar("Chests.ini", "DATA", "makeamount")
    If n < 101 Then
    Call make_chestini(index)
    Call PlayerMsg(index, "Done - You made " & n & " to make a grand total of " & Int(GetVar("Chests.ini " , "DATA"  , "Amountmade")), 15)
    Else
    Call PlayerMsg(index, "Format: /chestini ~number of new chest(max 100 at a time)~ (without the ~'s)", 15)
    End If
                Else
       Call PlayerMsg(index, "Format: /chestini ~number of new chest(max 100 at a time)~ (without the ~'s)", 15)
       End If
    Else
            Call PlayerMsg(index, "Format:/chest~amount of chest you want to make(without the ~'s)~", 4)
            End If
    Else
            Call PlayerMsg(index, "you need higher access to use this command", 4)
    End If
    End If
    Exit Sub
    End If


    then find this
    Code: [Select]
    Select Case LCase(Trim(TextSay))


    and under it add this
    Code: [Select]
    Case "/chest"
    If GetPlayerAccess(index) > 0 Then
    On Error Resume next
    Dim temptemp
    Dim temptemptemp
    temptemp = 1
    Do While temptemp <= 1000
    temptemptemp = GetVar("Chests.ini " , "CHEST" & temptemp , "itemnum")
    If temptemptemp < 1 Then
    Call PlayerMsg(index, "Chest" &temptemp, 2)
    temptemp = 1001
    ElseIf temptemptemp > 0 Then
    temptemp = temptemp+1
    End If
    LOOP
    End If
    Exit Sub

    Then Find this
    Code: [Select]
    '********************************
    Sub ScriptedTile(index, Script)  
    '********************************

    Select Case Script

    and add this
    Code: [Select]
    '<><><><><>
    Case 0
    Call chest_1_sub(index)
    '<><><><><>
    Case 1
    Call chest_2_sub(index)
    '<><><><><>
    Case 2
    Call chest_3_sub(index)
    '<><><><><>
    Case 3
    Call chest_4_sub(index)
    '<><><><><>
    Case 4
    Call chest_5_sub(index)

    CHANGE CASES ACORDINGLY

    AND THATS ALL :)

    SORRY FOR ALL THE SPELLING ERRORS :P

    Code is tested and does work

    HOW TO USE:
    first type /chestini0 and follow instructions. then lay down the scripted tiles on a map where u want the chest to be. Then walk on it. walk on it again and follow instructions. to edit whats in chest type /editchest0 and follow instructions and thats it (I hope these are understandable)

    if not post here and ill try to help but this scripts even makes the .ini so I dont see how you could mess it up
    Logged
    July 12, 2006, 06:47:09 AM
    jakeruston
    Member
    **
    User No : 1260
    Posts: 84
  • 0 credits
  • View Inventory
  • Send Money To jakeruston
    • Location : In my house, duh!
    • View Profile
    • WWW
    thanks for the great script, I'll try it out later!
    Logged
    Darksoft Games Competition has started!
    Visit http://www.darksoft.co.uk/community/index.php?showtopic=135]Here to vote in the latest match which is:

    Fear V To The Death!

    Note to all entrants who haven't finished their games: Get it done as soon as possible please ;)
    July 12, 2006, 06:56:42 AM
    Brutal - Zeldo
    Ex-Eclipse Programmer
    Veteran
    Active Member
    *
    User No : 1283
    Posts: 303
  • 0 credits
  • View Inventory
  • Send Money To Brutal - Zeldo
    • Pie
    • View Profile
    kk tell me your results I want to make sure it works for everybody
    Logged
    July 12, 2006, 12:25:06 PM
    Baron
    Lord Of Spleens
    Administrator
    Teh Uberleet
    *
    User No : 166
    Posts: 2951
  • 0 credits
  • View Inventory
  • Send Money To Baron
    • Location : Australia
    Badges? We dont need no stinkin' badges!
    • View Profile
    Impressive effort, thanks for leaving the credit in :) I do appreciate it.
    Logged

    Apparently ICT thinks that:
    [ 98% of Eclipse forums thinks baron is cool. Put this in your signature if you are on of the 2% that knows he's an asshôle ]

    If I'm only pissing 1 in 50 people off, I don't think that is too bad at all :D
    July 12, 2006, 05:16:04 PM
    Brutal - Zeldo
    Ex-Eclipse Programmer
    Veteran
    Active Member
    *
    User No : 1283
    Posts: 303
  • 0 credits
  • View Inventory
  • Send Money To Brutal - Zeldo
    • Pie
    • View Profile
    :P no problem I would hope that ppl did that for me even for a small part like that :)
    Logged
    July 12, 2006, 07:58:52 PM
    Sakis
    G2D Darkside
    Active Member
    ***
    User No : 1205
    Posts: 363
  • 0 credits
  • View Inventory
  • Send Money To Sakis
    • Location : My Home
    • View Profile
    • WWW
    well that is a great script man, easier for me to make items in chest and all now
    Logged
    [The Coming of the Slayers]


    ZAS Sig Shop
    July 12, 2006, 08:01:43 PM
    Brutal - Zeldo
    Ex-Eclipse Programmer
    Veteran
    Active Member
    *
    User No : 1283
    Posts: 303
  • 0 credits
  • View Inventory
  • Send Money To Brutal - Zeldo
    • Pie
    • View Profile
    :P I made it for mappers thathave no access to server files(all of them but one lol(if the server host maps lol)) I hope it helps it took a lot of hard work and time lots and lots of time...
    Logged
    July 12, 2006, 08:22:11 PM
    Sakis
    G2D Darkside
    Active Member
    ***
    User No : 1205
    Posts: 363
  • 0 credits
  • View Inventory
  • Send Money To Sakis
    • Location : My Home
    • View Profile
    • WWW
    well that is a sign of a true programmer and coder
    Logged
    [The Coming of the Slayers]


    ZAS Sig Shop
    July 14, 2006, 01:15:41 PM
    ZanZan
    Member
    **
    User No : 1230
    Posts: 72
  • 0 credits
  • View Inventory
  • Send Money To ZanZan
    • View Profile
    Yea, you did a nice job =)
    Logged
    Current Project[/u]
    Name: Zadia Online
    Website:
    Screenie:  Game Developer:  ZanZan  Scripter: Balliztik1 GameModerator: Not Hiring yet  StoryLine: 100%  Script: 25%  Website: 25%  map:  30%  npc: 10%  spells:  1%  gui: 35%  items: 7%  classes: 80% - Not tested  shops: 1%  Tiles / sprites: 99.9%
    July 14, 2006, 02:09:07 PM
    Brutal - Zeldo
    Ex-Eclipse Programmer
    Veteran
    Active Member
    *
    User No : 1283
    Posts: 303
  • 0 credits
  • View Inventory
  • Send Money To Brutal - Zeldo
    • Pie
    • View Profile
    :P thanks
    Logged
    July 15, 2006, 09:13:20 AM
    Cantinfla
    Mid Scripter
    Member
    **
    User No : 1174
    Posts: 40
  • 0 credits
  • View Inventory
  • Send Money To Cantinfla
    • Location : The continent of Akaran...
    • View Profile
    Wow, nice script, works like a charm. :D
    Logged
    Status = ""

    Proud to be...
         
    July 15, 2006, 10:12:48 AM
    Brutal - Zeldo
    Ex-Eclipse Programmer
    Veteran
    Active Member
    *
    User No : 1283
    Posts: 303
  • 0 credits
  • View Inventory
  • Send Money To Brutal - Zeldo
    • Pie
    • View Profile
    :P np I love to script  :shock:
    Logged
    February 28, 2008, 10:04:28 PM
    Lee_Dragoon
    Active Member
    ***
    User No : 658
    Posts: 144
  • 0 credits
  • View Inventory
  • Send Money To Lee_Dragoon
    • View Profile
    none of my commands seem to be working at the moment.. maybe I copied something wrong, but can you post the full section of code, mine was previously uneditted, but I want to make a comparison between the two, see if I can get mine working... Awsome script tho.
    Logged
    August 14, 2010, 02:56:16 AM
    vukodalk2000
    Newb
    *
    User No : 21103
    Posts: 1
  • 8 credits
  • View Inventory
  • Send Money To vukodalk2000
    • View Profile
    proplem (#13)
    when I tryre /chestini0 or /editchest0 in the chat bar it says invalid comand  :icon_meditation:
    Logged
    August 14, 2010, 03:05:06 AM
    NGHS | Tepnet
    Active Member
    ***
    User No : 17653
    Posts: 236
  • 136 credits
  • View Inventory
  • Send Money To NGHS | Tepnet
    • View Profile
    This is a very old script I doubt it will work.
    Logged
    NGHS - NeX Generation Hosting Solutions
     
    Powered by MySQL Powered by PHP Powered by SMF 2.0 RC3 | SMF © 2006–2010, Simple Machines LLC
    SimplePortal 2.3.1 © 2008-2009, SimplePortal     		Valid XHTML 1.0! Valid CSS!
    Page created in 0.311 seconds with 29 queries.