[Quest API] Add Door Methods to Perl/Lua. (#2724)

# Perl
- Add `$door->ForceClose(sender)`.
- Add `$door->ForceClose(sender, alt_mode)`.
- Add `$door->ForceOpen(sender)`.
- Add `$door->ForceOpen(sender, alt_mode)`.
- Add `$door->GetDisableTimer()`.
- Add `$door->SetDisableTimer(disable_timer)`.

# Lua
- Add `door:GetID()`.

# Notes
- Makes Perl/Lua Door scripting capabilities 1:1.
This commit is contained in:
Alex King
2023-01-11 19:10:38 -05:00
committed by GitHub
parent 3341c0b7ab
commit 2f90f26351
3 changed files with 43 additions and 0 deletions
+6
View File
@@ -176,6 +176,11 @@ void Lua_Door::ForceClose(Lua_Mob sender, bool alt_mode) {
self->ForceClose(sender, alt_mode);
}
uint32 Lua_Door::GetID() {
Lua_Safe_Call_Int();
return self->GetID();
}
luabind::scope lua_register_door() {
return luabind::class_<Lua_Door, Lua_Entity>("Door")
.def(luabind::constructor<>())
@@ -191,6 +196,7 @@ luabind::scope lua_register_door() {
.def("GetDoorID", (uint32(Lua_Door::*)(void))&Lua_Door::GetDoorID)
.def("GetDoorName", (const char*(Lua_Door::*)(void))&Lua_Door::GetDoorName)
.def("GetHeading", (float(Lua_Door::*)(void))&Lua_Door::GetHeading)
.def("GetID", (uint32(Lua_Door::*)(void))&Lua_Door::GetID)
.def("GetIncline", (uint32(Lua_Door::*)(void))&Lua_Door::GetIncline)
.def("GetKeyItem", (uint32(Lua_Door::*)(void))&Lua_Door::GetKeyItem)
.def("GetLockPick", (uint32(Lua_Door::*)(void))&Lua_Door::GetLockPick)