MacroQuest64

Code: Select all

Sub Set_Priority
	/declare I			int		local
	/declare J			int		local

	/declare TEMP_PRI	string	local
	/declare TEMP_COM	string	local
	/declare TEMP_REQ	string	local
	/declare TEMP_ACT	string	local
	/declare TEMP_ARG	string	local

	/varset TODO_PRI 99
	/varset POP_ITEM 0

| if first item in Priority array =0, then nothing to be done.
	/if (${PRIORITY[1]}==0)			/return

| Store the highest priority item into the TODOs,
| POP_ITEM will contain the location within the array of the highest priority action.
	/for I 1 to ${ACTION.Size}
		/if (${PRIORITY[${I}]}!=0 && ${PRIORITY[${I}]} < ${TODO_PRI}) {
			/varset TODO_PRI ${PRIORITY[${I}]}
			/varset TODO_COM ${COMMAND[${I}]}
			/varset TODO_REQ ${REQUESTOR[${I}]}
			/varset TODO_ACT ${ACTION[${I}]}
			/varset TODO_ARG ${ARG[${I}]}
			/varset POP_ITEM ${I}
		}
	/next I

| Move all Action Items up the Action Item Queue starting from POP_ITEM
	/if (${POP_ITEM}) {
		/for I ${POP_ITEM} to ${Math.Calc[${ACTION.Size}-1]}
			/if (${PRIORITY[${I}]}!=0) {
				/varcalc J ${I}+1
				/varset QUEUE_NO ${I}
				/varset PRIORITY[${I}]	${PRIORITY[${J}]}
				/varset COMMAND[${I}] 	${COMMAND[${J}]}
				/varset REQUESTOR[${I}] ${REQUESTOR[${J}]}
				/varset ACTION[${I}] 	${ACTION[${J}]}
				/varset ARG[${I}]		${ARG[${J}]}
			}
		/next I

| Sort Buff of the same type and put them together
| Start the sort from 1 to last action item
| if priority = 0, end of queue is reached, so, return.
| If Action[I} is not the same as TODO_ACT, then, check if those below has same
| Starting from next Item (I+1) until end or Prioity=0
| if Action[J] is same as TODO_ACT, swap it with Action[I]
		/for I 1 to ${ACTION.Size}
			/if (${PRIORITY[${I}]}!=0 && ${ACTION[${I}].Equal[${TODO_ACT}]}) {
				/varset TEMP_PRI		${PRIORITY[1]}
				/varset TEMP_COM		${COMMAND[1]}
				/varset TEMP_REQ		${REQUESTOR[1]}
				/varset TEMP_ACT		${ACTION[1]}
				/varset TEMP_ARG		${ARG[1]}

				/varset PRIORITY[1]		2
				/varset COMMAND[1]		${COMMAND[${I}]}
				/varset REQUESTOR[1]	${REQUESTOR[${I}]}
				/varset ACTION[1]		${ACTION[${I}]}
				/varset ARG[1]			${ARG[${I}]}

				/if (${I} > 1) /varset PRIORITY[${I}]	${TEMP_PRI}
				/varset COMMAND[${I}]	${TEMP_COM}
				/varset REQUESTOR[${I}]	${TEMP_REQ}
				/varset ACTION[${I}]	${TEMP_ACT}
				/varset ARG[${I}]		${TEMP_ARG}

				/varset PRIORITY[${ACTION.Size}] 0
				/return
			}
		/next I
	}
	/varset PRIORITY[${ACTION.Size}] 0
/return