#define LOCK_LOCKED 1
#define LOCK_BROKEN 2
/datum/lock
var/status = 1 //unlocked, 1 == locked 2 == broken
var/lock_data = "" //basically a randomized string. The longer the string the more complex the lock.
var/atom/holder
/datum/lock/New(var/atom/h, var/complexity = 1)
holder = h
if(istext(complexity))
lock_data = complexity
else
lock_data = generateRandomString(complexity)
/datum/lock/Destroy()
holder = null
..()
/datum/lock/proc/unlock(var/key = "", var/mob/user)
if(status ^ LOCK_LOCKED)
to_chat(user, "Its already unlocked!")
return 2
key = get_key_data(key, user)
if(cmptext(lock_data,key) && (status ^ LOCK_BROKEN))
to_chat(user, "You unlock the lock.")
status &= ~LOCK_LOCKED
return 1
return 0
/datum/lock/proc/lock(var/key = "", var/mob/user)
if(status & LOCK_LOCKED)
to_chat(user, "Its already locked!")
return 2
key = get_key_data(key, user)
if(cmptext(lock_data,key) && (status ^ LOCK_BROKEN))
to_chat(user, "You close the lock.")
status |= LOCK_LOCKED
return 1
return 0
/datum/lock/proc/toggle(var/key = "", var/mob/user)
if(status & LOCK_LOCKED)
return unlock(key, user)
else
return lock(key, user)
/datum/lock/proc/getComplexity()
return length(lock_data)
/datum/lock/proc/get_key_data(var/key = "", var/mob/user)
if(istype(key,/obj/item/key))
var/obj/item/key/K = key
return K.get_data(user)
if(istext(key))
return key
return null
/datum/lock/proc/isLocked()
return status & LOCK_LOCKED
/datum/lock/proc/pick_lock(var/obj/item/I, var/mob/user)
if(!istype(I) || (status ^ LOCK_LOCKED))
return 0
var/unlock_power = I.lock_picking_level
if(!unlock_power)
return 0
user.visible_message("\The [user] takes out \the [I], picking \the [holder]'s lock.")
if(!do_after(user, 20, holder))
return 0
if(prob(20*(unlock_power/getComplexity())))
to_chat(user, "You pick open \the [holder]'s lock!")
unlock(lock_data)
return 1
else if(prob(5 * unlock_power))
to_chat(user, "You accidently break \the [holder]'s lock with \the [I]!")
status |= LOCK_BROKEN
else
to_chat(user, "You fail to pick open \the [holder].")
return 0