Chest Script [1/5]

[Godlord]

This script is easy and maybe wanted? well I don't know but ok here it is  :wink:

Replace the whole sub(if not changed) Sub OnAttack(index) with:

Code: [Select]

Sub OnAttack(index)
Dim PX
Dim PY
Dim PM
Dim check
Dim itemcheck
Dim num
Dim val
PX = GetPlayerX(index)
PY = GetPlayerY(index)
PM = GetPlayerMap(index)
check = 1
itemcheck = 1
Do while check <= 9999
Do while itemcheck <= 24
If Int(PX + 1) = GetVar(App.Path & "Chest.ini", check, X) And PY = GetVar(App.Path & "Chest.ini", check, Y) And PM = GetVar(App.Path & "Chest.ini", check, MAP) Then
Call PlayerMsg(index, "You opened the chest.", 12)
num = GetVar(App.Path & "Chest.ini", check, "num")
val = GetVar(App.Path & "Chest.ini", check, "val")
If num = 0 Then
Call PlayerMsg(index, "There is nothing in the chest.", 12)
Exit Sub
Elseif GetPlayerInvNum(index, itemcheck) = 0 then
Call SetPlayerInvNum(index, itemcheck, num)
Call SetPlayerInvVal(index, itemcheck, val)
Call PlayerMsg(index, "You founded an item.", 12)
Else
Call PlayerMsg(index, "There is nothing in the chest.", 12)
Exit sub
End If
End If
If Int(PX - 1) = GetVar(App.Path & "Chest.ini", check, X) And PY = GetVar(App.Path & "Chest.ini", check, Y) And PM = GetVar(App.Path & "Chest.ini", check, MAP) Then
Call PlayerMsg(index, "You opened the chest.", 12)
num = GetVar(App.Path & "Chest.ini", check, "num")
val = GetVar(App.Path & "Chest.ini", check, "val")
If num = 0 Then
Call PlayerMsg(index, "There is nothing in the chest.", 12)
Exit Sub
Elseif GetPlayerInvNum(index, itemcheck) = 0 then
Call SetPlayerInvNum(index, itemcheck, num)
Call SetPlayerInvVal(index, itemcheck, val)
Call PlayerMsg(index, "You founded an item.", 12)
Else
Call PlayerMsg(index, "There is nothing in the chest.", 12)
Exit sub
End If
End If
If Int(PY + 1) = GetVar(App.Path & "Chest.ini", check, X) And PY = GetVar(App.Path & "Chest.ini", check, Y) And PM = GetVar(App.Path & "Chest.ini", check, MAP) Then
Call PlayerMsg(index, "You opened the chest.", 12)
num = GetVar(App.Path & "Chest.ini", check, "num")
val = GetVar(App.Path & "Chest.ini", check, "val")
If num = 0 Then
Call PlayerMsg(index, "There is nothing in the chest.", 12)
Exit Sub
Elseif GetPlayerInvNum(index, itemcheck) = 0 then
Call SetPlayerInvNum(index, itemcheck, num)
Call SetPlayerInvVal(index, itemcheck, val)
Call PlayerMsg(index, "You founded an item.", 12)
Else
Call PlayerMsg(index, "There is nothing in the chest.", 12)
Exit sub
End If
End If
If Int(PX + 1) = GetVar(App.Path & "Chest.ini", check, X) And PY = GetVar(App.Path & "Chest.ini", check, Y) And PM = GetVar(App.Path & "Chest.ini", check, MAP) Then
Call PlayerMsg(index, "You opened the chest.", 12)
num = GetVar(App.Path & "Chest.ini", check, "num")
val = GetVar(App.Path & "Chest.ini", check, "val")
If num = 0 Then
Call PlayerMsg(index, "There is nothing in the chest.", 12)
Exit Sub
Elseif GetPlayerInvNum(index, itemcheck) = 0 then
Call SetPlayerInvNum(index, itemcheck, num)
Call SetPlayerInvVal(index, itemcheck, val)
Call PlayerMsg(index, "You founded an item.", 12)
Else
Call PlayerMsg(index, "There is nothing in the chest.", 12)
Exit sub
End If
Else
Exit Sub
End If
Loop
Loop
End Sub
That should work well now the ini

Chest.ini

Code: [Select]

[1]
MAP=
X=
Y=
num=
val=
[2]
MAP=
X=
Y=
num=
val=[1] 1 = the chest number. You can have 9999 chests with this script or if you change 9999 into the script then more.
num=0 is an empty chest. Other numbers are possible but it only can contain less or equal too your max items.
val=# # is how much of you want it into the chest. 0 is for non-stackable items.
MAP=# # is the map where the chest must be on.
X=# # is the X the chest must be on.
Y=# # is the Y the chest must be on.
Also you need to block that tile. Else the player can walk into the chest O.o.
Ctrl to open the chest and to get an item.
Have fun with your chests.

EDIT: Bug fixed normally, if more bugs appear then report.

EDIT2: Going to fix this whole script(re-making it and stuff )

[l0lz!]

Very Nice, Good job Godlord  8-).

[Godlord]

No problem my next script are 5 skills. :-P (I work at christmas, Am I an elf?)

[Ilnair]

Nice work .

[Godlord]

Thanks.

[Chrono917]

Wow Nice

[KainBloodbane]

Awesome dude, I'll prolly implement this into NOTD later

[Sythja]

err  is there a way mappers without direct access to my server files can make chests? cuz i really don't want to have to go and punch in all that info into the chest.ini myself, it would get in the way of the rest of the stuff i'm doing for it lol

[Sythja]

nvm then i'll find the answer elsewhere

[Godlord]

yes...  you need to use the Command Maker version 3.0 btw. You need to input an X, Y and M position like /makechest M X Y and then it writes those coordininates into the INI file.

[Sythja]

got it, just not sure how to use it, i've been having so many problems with scripting its almost comical

almost

[Wojtexx]

Very good working script

[Sythja]

i must be doin something wrong cuz each time i add it i lose my commands, i type them in and get no response

[The BanHammer! [Thor!]]

...Damn  this kicks ass thanks man

[Godlord]

no problem.

[Fax]

It doesnt seem to be working. (I am using TE and I installed it correctly) but when I replace the on attack sub the whole main stops working. is there a error in it. also where do I place the chests.ini in the server folder or the scripts folder

[Godlord]

Server folder, lemme check. Maybe I scripted something wrong.

[Fax]

awesome script though

[Godlord]

try again with the new code. If it still doesn't work then I probably know the problem.

[Fax]

will do hold on