Untitled

			(setq test (lambda (percent modifier curve)
				(block (resultString itemLevel resultIndex startIndex spaces curveIndex)

					(setq itemLevel (add (divide (multiply (sysGetLevel) percent) 100) modifier))
					(setq spaces (subtract itemLevel (item curve 0)))
					(setq resultIndex (add (multiply (divide spaces 5) 6) (modulus spaces 5))) 
					(setq start 1)
					(setq resultString "")
					
					;make the spaces before the curve
					(if (leq spaces 0)
						(block Nil
							(setq resultIndex 0)
							(setq start (subtract start spaces))
						)						
						(for i 1 resultIndex
							(if (eq 0 (modulus i 6))
								(setq resultString (cat resultString " "))
								(setq resultString (cat resultString "-"))
							)
						)
					)
					
					;add the curve on
					(loop (ls start (count curve))
						(block Nil
							(setq resultIndex (add resultIndex 1))
							(if (eq 0 (modulus resultIndex 6))
								(setq resultString (cat resultString " "))
								(block Nil
									(setq resultString (cat resultString (item curve start)))
									(setq start (add start 1))
								)
							)
						)
					)
					
					;return the string
					resultString
				)

			))