skUnity Parser

options:
	loopInterval: 1 tick # Interval where 3d Drops will be looped. Set to a higher value if the script causes lag to you
	errorPrefix: &8[&c3dDrops &4Error&8]
	prefix: &8[&a3dDrops&8]
	
	# Don't change anything below or items can appear wrongly!
	items1: 256,257,258 and (integers from 267 to 280), 283,284,285,286,290,291,292,293,294,346,352,369 and 425 #Tools and some items are held differently
	items2: 6,27,28,30,31,32,37,38,39,40,50,65,66,69,76,101,102,106,111,131,154,157,160,166,175,259,260,262,263,264,265,266,281,282,287,288,289 and (integers from 295 to 345) and (integers from 347 to 351) and (integers from 353 to 368) and (integers from 370 to 392), 394,395,396 and (integers from 398 to 424) and (integers from 426 to 431) #Flowers and some items
	
# Does this even work anymore?
function packetHideEntity(entity: entity, players: players):
	set {_packet} to new play_server_entity_destroy packet
	set {_entityID} to first element of entity id of {_entity}
	set int pnum 0 of {_packet} to 1
	set int array pnum 0 of {_packet} to {_entityID}
	# set {_world} to world of {_entity}
	# set {_world} pentity 0 of {_packet} to {_entity}
	loop {_players::*}:
		send packet {_packet} to loop-value
	
# I don't remember if I tested this through, but it should work, probably.
function getClosestEntity(loc: location, radius: number = 3) :: entity:
	set {_minDist} to {_radius}
	loop all entities in radius {_radius} around {_loc}:
		set {_dist} to distance between {_loc} and loop-entity
		if {_dist} < {_minDist}:
			set {_closest} to loop-entity
			set {_minDist} to {_dist}
	return {_closest}
	
function calc3dItemHeight(item: item) :: number:
	loop {@items1}:
		if ids of {_item} is loop-value:
			return 1.413
	loop {@items2}:
		if ids of {_item} is loop-value:
			return 0.796
	if ids of {_item} is 261: #Bow
		return 1.332
	else: #Other items that aren't listed on items1 or items2
		return 1.375
	
function do3dItemLoop(armStand: entity, item: entity, heightDiff: number):
	set {_lastTicksLived} to -1	# I don't remember why I initialize this as "-1", but there's probably a reason behind this
	while {_armStand} is alive:
		set {_ticksLived} to tag "Spigot.ticksLived" of nbt of {_item}
		if {_ticksLived} is {_lastTicksLived}:	# A hacky way to check if the armor stand is still alive ("if {_armStand} is alive" wouldn't work for some reason)
			# teleport {_armStand} to location 256 below {_armStand}
			kill {_armStand}
			stop loop
		# else if health of {_armStand} is 0:	# Another hacky way I tried to check if the armor stand was still alive, but it didn't work very well from what I remember
			# kill {_item}
			# stop
		else if "%position of {_armStand}%" is not "%position {_heightDiff} below {_item}%":
			teleport {_armStand} to location {_heightDiff} below {_item}
		set {_lastTicksLived} to {_ticksLived}
		
		# I don't remember why I had this commented code below?
		
		# set {_nearPlayers::*} to all players in radius 64 of {_item}
		# loop {_nearPlayers::*}: #Hide the item when a player gets close to it
			# if visibility of {_item} for loop-value is true: #If it's not hidden for loop-player
				# protocol hide {_item} from loop-value
		# set {_farPlayers::*} to all players
		# remove {_nearPlayers::*} from {_farPlayers::*}
		# protocol show {_item} to {_farPlayers::*}
		# delete {_nearPlayers::*}
		# delete {_farPlayers::*}
		wait {@loopInterval}
		
function clear3dDrops(w: worlds) :: number:
	set {_clearCount} to 0
	loop all armor stands and dropped items in {_w::*}:
		if metadata "3dDrop" of loop-entity is set:
			delete loop-entity
			add 1 to {_clearCount}
	return {_clearCount} / 2 # Divided by two because it also clears armor stands, I just want to return the number of ITEMS cleared.
	
on script load:
	# Makes it so armorstands don't get stuck on the world upon server restart (it's #! not !# recommended to disable this script dinamically!)
	
	# THERE ARE A LOT OF DEBUG MESSAGES HERE WHILE I WAS DEVELOPING IT
	set {_beginTime} to now
	set {_count} to 0
	if existence of "plugins/Skript/scripts/3dItems.yml" is true:
		set {_savedEntities} to yaml value "items.entitiesInfo" from "plugins/Skript/scripts/3dItems.yml"
		set {_entityInfo::*} to {_savedEntities} split at ";"
		loop (amount of {_entityInfo::*}) times:
			set {_info::*} to {_entityInfo::%loop-num%} split at "|"
			set {_pos} to "nbtlist:%{_info::1}%" parsed as nbtlist
			set {_world} to {_info::2} parsed as world
			set {_uuid} to {_info::3}
			set {_x} to nbtlist {_pos} index 1
			set {_y} to nbtlist {_pos} index 2
			set {_z} to nbtlist {_pos} index 3
			set {_loc} to location({_x}, {_y}, {_z}, {_world})
			# load chunk at {_loc}
			send "&9----------------" to console
			send "&dIndex %loop-num%" to console
			set {_closestEnt} to getClosestEntity({_loc})
			loop scoreboard tag of {_closestEnt}:
				if loop-value-2 contains "3dDrop.":
					set {_splitString::*} to loop-value-2 split at "."
					set {_tiedUUID} to {_splitString::2}
					set {_type} to {_splitString::3}
			
			if {_tiedUUID} isn't set:
				send "{@errorPrefix} &cExpected to find a 3dDrop entity, but found something else." to console
				exit 1 section
			if {_type} is "a":
				if "%type of {_closestEnt}%" isn't "armor stand":
					send "{@errorPrefix} &cExpected to find an armor stand, but found a(n) %type of {_closestEnt}%" to console
					exit 2 sections
				set {_entLoops::*} to all dropped items in radius 3 around {_closestEnt}
				#
				# THERE'S A PRETTY ANNOYING BUG IN HERE WHERE THERE WILL BE CONTENTS ON
				# THE {_entLoops::*} LIST BUT SKRIPT WON'T ACTUALLY LOOP THE CONTENTS
				# WHYYYYYYYYY?????
				#
				send "&dLooping - %{_entLoops::*}%" to console
				loop {_entLoops::*}:
					send "&floop. %entity uuid of loop-value-2% // %{_tiedUUID}%" to console
					if "%entity uuid of loop-value-2%" is "%{_tiedUUID}%":
						send "&floopFound. was same UUID." to console
						set {_tiedItem} to loop-value-2
						exit loop
				send "&dLOOPED - %{_entLoops::*}%" to console
				if {_tiedItem} is set:
					set {_items} to first element of items within entity {_tiedItem}
					set {_heightDiff} to calc3dItemHeight({_items})
					do3dItemLoop({_closestEnt}, {_tiedItem}, {_heightDiff})
					set metadata "3dDrop" of {_closestEnt} to true
				else:
					send "&6Armor stand deleted on script load, ITEM WASN'T FOUND" to console
					kill {_closestEnt}
					exit 2 sections
				add 1 to {_count}
			else:
				if "%type of {_closestEnt}%" isn't "dropped item":
					send "{@errorPrefix} &cExpected to find a dropped item, but found a(n) %type of {_closestEnt}%" to console
					exit 2 sections
				set {_entLoops::*} to all armor stands in radius 3 around {_closestEnt}
				#
				# THERE'S A PRETTY ANNOYING BUG IN HERE WHERE THERE WILL BE CONTENTS ON
				# THE {_entLoops::*} LIST BUT SKRIPT WON'T ACTUALLY LOOP THE CONTENTS
				# WHYYYYYYYYY?????
				#
				send "&dLooping - %{_entLoops::*}%" to console
				loop {_entLoops::*}:
					send "&f loop. %entity uuid of loop-value-2% // %{_tiedUUID}%" to console
					if "%entity uuid of loop-value-2%" is "%{_tiedUUID}%":
						send "&f loopFound. was same UUID." to console
						set {_tiedArmStand} to loop-value-2
						exit loop
				send "&dLOOPED - %{_entLoops::*}%" to console
				if {_tiedArmStand} is set:
					set {_items} to first element of items within entity {_closestEnt}
					set {_heightDiff} to calc3dItemHeight({_items})
					do3dItemLoop({_tiedArmStand}, {_closestEnt}, {_heightDiff})
					set metadata "3dDrop" of {_closestEnt} to true
				else:
					send "&6Dropped item deleted on script load, ARMOR STAND WASN'T FOUND" to console
					teleport {_closestEnt} to location 256 below {_closestEnt}
					exit 2 sections
				add 1 to {_count}
			delete {_tiedArmStand} #Avoid duplicates on the next entity
			delete {_tiedItem}
			delete {_closestEnt}
			delete {_entLoops::*}
			send "&9--------------------" to console
		
		set {_timeTook} to difference between {_beginTime} and now
		send "{@prefix} &aTook %{_timeTook}% to load %{_count}% entities from &23dItems.yml&a!" to console
		delete file "plugins/Skript/scripts/3dItems.yml" #We don't need it anymore after the information was got.
	
on script unload:
	# Makes it so armorstands don't get stuck on the world upon server restart (it is #! NOT !# recommended to DISABLE the script while the server is running!)
	set {_beginTime} to now
	set {_count} to 0
	loop all armor stands and dropped items:
		if metadata "3dDrop" of loop-entity is set:
			#Getting the location via NBT prevents Skript from truncating decimals, thus having more accuracy.
			set {_posTag} to tag "Pos" of nbt of loop-entity
			set {_world} to "%loop-entity's world%"
			if {_storageString} isn't set:
				set {_storageString} to "%{_posTag}%|%{_world}%|%entity uuid of loop-entity%"
			else:
				set {_storageString} to "%{_storageString}%;%{_posTag}%|%{_world}%|%entity uuid of loop-entity%"
			add 1 to {_count}
	loop {3dDrops::unloaded::*}:
		if {_storageString} isn't set:
			set {_storageString} to "%loop-value%"
		else:
			set {_storageString} to "%{_storageString}%;%loop-value%"
		set {_savedEntities::*} to loop-value split at ";"
		add amount of {_savedEntities::*} to {_count}
	delete {3dDrops::unloaded::*}
	set yaml value "items.entitiesInfo" from "plugins/Skript/scripts/3dItems.yml" to {_storageString}
	set {_timeTook} to difference between {_beginTime} and now
	send "{@prefix} &aTook %{_timeTook}% to save %{_count}% entities to &23dItems.yml&a!" to console
	
# Debug command. If you get a decimal number (for example "2.5"), you know something is wrong
command /listitems:
	trigger:
		set {_count} to 0
		loop all armor stands and dropped items:
			if metadata "3dDrop" of loop-entity is set:
				add 1 to {_count}
		send "{@prefix} &aThere are %{_count} / 2% 3dDrops."
	
command /clearItems:
	trigger:
		send "{@prefix} &aCleared %clear3dDrops(all worlds)% 3dDrops in all worlds!"
	
on join:
	loop all dropped items:
		if metadata "3dDrop" of loop-entity is set:
			packetHideEntity(loop-entity, player)
	
on item spawn:
	set {_item} to event-entity
	set {_items} to first element of items within entity {_item}
	packetHideEntity({_item}, all players)
	set {_heightDiff} to calc3dItemHeight({_items})
	spawn an armor stand at location {_heightDiff} below
	set {_armStand} to last spawned armor stand
	add "{Invisible:1b,NoBasePlate:1b,NoGravity:1b,DisabledSlots:2039583}" to nbt of {_armStand}
	# DisabledSlots:2039583 = Disable all interactions on all slots
	set metadata "3dDrop" of {_armStand} to true
	set metadata "3dDrop" of {_item} to true
	add "3dDrop.%entity uuid of {_item}%.a" to scoreboard tags of {_armStand}
	add "3dDrop.%entity uuid of {_armStand}%.i" to scoreboard tags of {_item}
	do3dItemLoop({_armStand}, {_item}, {_heightDiff})
	if {_heightDiff} is 1.413:
		set tool of {_armStand} to {_items}
		add "{Pose:{RightArm:[229.183f,0.0f,89.95437f]}}" to nbt of {_armStand}
		# Umbaska broke, so yeah, using NBT now
		# set right arm x angle of {_armStand} to 4
		# set right arm y angle of {_armStand} to 0
		# set right arm z angle of {_armStand} to 1.57
	else if {_heightDiff} is 0.796:
		set tool of {_armStand} to {_items}
		add "{Pose:{RightArm:[0.0f,257.831f,0.0f]}}" to nbt of {_armStand}
		# Umbaska broke, so yeah, using NBT now
		# set right arm x angle of {_armStand} to 0
		# set right arm y angle of {_armStand} to 4.5
		# set right arm z angle of {_armStand} to 0
	else if {_heightDiff} is 1.375:
		set helmet of {_armStand} to {_items}
	else if {_heightDiff} is 1.332: #Bow
		set tool of {_armStand} to {_items}
		add "{Pose:{RightArm:[191.9409f,-10.026761f,89.95437f]}}" to nbt of {_armStand}
		# Umbaska broke, so yeah, using NBT now
		# set right arm x angle of {_armStand} to 3.35
		# set right arm y angle of {_armStand} to -0.175
		# set right arm z angle of {_armStand} to 1.57

on chunk load:
	delete {3dDrops::unloaded::%event-chunk%}
	loop entities of event-chunk:
		if metadata "3dDrop" of loop-entity is set:
			if "%type of loop-entity%" is "armor stand":
				if "%entity uuid of loop-entity%" is not "%{_tiedASUUID}%": #Prevent multiple loops on the same 3dDrop
					set {_tiedItemUUID} to metadata "tiedEntUUID" of loop-entity
					loop all dropped items in radius 2 around loop-entity:
						if entity uuid of loop-entity-2 is {_tiedItemUUID}:
							set {_foundItem} to loop-entity-2
							exit loop
					if {_foundItem} is set:
						set {_items} to first element of items within entity {_foundItem}
						set {_heightDiff} to calc3dItemHeight({_items})
						do3dItemLoop(loop-entity, {_foundItem}, {_heightDiff})
					else:
						delete loop-entity
						send "&6[&eDEBUG&6] &fArmor stand deleted on chunk load because correspondent item wasn't fround" to console and {dylatas}
			else:
				if "%entity uuid of loop-entity%" is not "%{_tiedItemUUID}%": #Prevent multiple loops on the same 3dDrop
					set {_tiedASUUID} to metadata "tiedEntUUID" of loop-entity
					loop all armor stands in radius 2 around loop-entity:
						if entity uuid of loop-entity-2 is {_tiedASUUID}:
							set {_foundArmStand} to loop-entity-2
							exit loop
					if {_foundArmStand} is set:
						set {_items} to first element of items within entity loop-entity
						set {_heightDiff} to calc3dItemHeight({_items})
						do3dItemLoop({_foundArmStand}, loop-entity, {_heightDiff})
					else:
						delete loop-entity
						send "&6[&eDEBUG&6] &fItem deleted on chunk load because correspondent armor stand wasn't fround" to console and {dylatas}

on chunk unload: # Save the unloaded items to be saved on server stop.
	set {_count} to 0
	loop entities of event-chunk:
		if metadata "3dDrop" of loop-entity is set:
			#Getting the location via NBT prevents Skript from truncating decimals, thus having more accuracy.
			set {_posTag} to tag "Pos" of nbt of loop-entity
			set {_world} to "%loop-entity's world%"
			if {_storageString} isn't set:
				set {_storageString} to "%{_posTag}%|%{_world}%|%entity uuid of loop-entity%"
			else:
				set {_storageString} to "%{_storageString}%;%{_posTag}%|%{_world}%|%entity uuid of loop-entity%"
			add 1 to {_count}
	if {_storageString} is set:
		if {3dDrops::unloaded::%event-chunk%} isn't set:
			set {3dDrops::unloaded::%event-chunk%} to "%{_storageString}%"
		else:
			set {3dDrops::unloaded::%event-chunk%} to "%{3dDrops::unloaded::%event-chunk%}%;%{_storageString}%"
		send "{@prefix} &aStored %{_count}% 3dDrops in list variable due to chunk unloaded." to console and {dylatas}
	
# DEBUG COMMAND
command /unloadedItems:
	trigger:
		if {3dDrops::unloaded::*} isn't set:
			send "{@errorPrefix} &cThere are no unloaded 3dDrops currently."
			stop
		loop {3dDrops::unloaded::*}:
			send "{@prefix} &a%loop-index%: &b%loop-value%"
	
# DEBUG COMMAND USED TO TELEPORT TO A CHUNK
command /tpchunk <integer> <integer> [<text>]:
	trigger:
		if arg-3 is set:
			set {_world} to arg-3 parsed as world
		else:
			set {_world} to player's world
		set {_x} to arg-1 * 16
		set {_z} to arg-2 * 16
		set {_loc} to location({_x}, 255, {_z}, {_world})
		set {_loc} to highest block at {_loc}	# I don't remember from which addon this is...
		teleport player to block above {_loc}

Paste Info

Paste ID: 278 / 3D Drops (discontinued, feel free to take over)

Author: TheBukor

Privacy setting: anyone

Posted at: 30/07/2017 05:48:08am

Indent Settings

Change how the Parser indents text. These settings are saved in your browser and will save when you change either option

Parse Results (0)

Write some code to get parse results

Commands (0)

No commands found

Functions (0)

No functions found

Detected Addons (0)

No addons detected

Variables (0)

No variables used yet

Skriptathon

Resource Search Spigot Resource Search

File Manager

Resource Search Spigot Resource Search

Resource Search

Search for Resources on the Forums and load them into the Parser

Enter a Resource ID or search for a Resource by its title

Spigot Resource Search

Search for Resources on Spigot and load them into the Parser

Search for a Resource by its title

Settings

Parser Experiments

Features currently in development for the Parser!

Features below can be tested before their full release. Please be aware that these features aren't fully tested, might be missing certain aspects such as frontend design or might not properly work. All feedback is gladly welcomed but negative comments for no reason won't be listened too. These features aren't intended to be released yet. Please note that when you enable or disable any Experiments, the page will refresh for the changes to take effect.

Manage Collections

Doing any changes to your Collections or creating a new Collection will refresh the page. Make sure you've saved any work beforehand.

Collection name

My Saves (1)

You don't have any pastes. Why not create one?

skUnity Connect

Shared with me (1)

There are no pastes shared with you.

Manage specific users

Intilising user management... please wait

Loading profile...

Public pastes skUnity Resources Forums profile

User Pastes

User skUnity Resources