Chest Script [1/5]

• 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

[EO] Attaching Problem. by 314piwm
[Today at 10:21:04 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]

• Guests: 21
• Hidden: 0
• Users: 15
• Users Online:

• Helladen
• Back to teeming
• drifter000
• jncoblack15
• BRiM570N3
• 314piwm
• Ertzel
• RavenStar
• Bloodmyst
• yaratemaster
• bunnyphantom
• Blue Fly
• LegendWeaver
• Gamma™
• Mikekan13

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 )

Stephan

Very Nice, Good job Godlord  8-).

l0lz!

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

Stephan

Nice work .

Ilnair

Thanks.

Stephan

Wow Nice

Chrono917

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

KainBloodbane

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

Sythja

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.

Stephan

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

almost

Sythja

Very good working script

Wojtexx

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

Sythja

...Damn  :wave: this kicks ass thanks man

Mighty Jewfro

no problem.

Stephan

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

Fax

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

Stephan

awesome script though

Fax

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

Stephan

will do hold on

Fax