Should work

#Puts a smile on your face... or maybe just a block
*:/hat = >>>
assign(@player, player())
if(is_null(pinv(@player, null)), die('You need to be holding something!'))
if(has_permission(@player,titanicnut.hat), try(set_pinv(array(103: pinv(player(), null))), @i, die('You cannot wear that!')))
msg('Look at your hat, your hat is amazing!')
<<<

# Skillup
/skillup $player = >>>
assign(@player, player())
if(has_permission(@player,titanicnut.skillup), run(/pex promote $player), die('You can not do that'))
<<<

# Skillup
/skillup $player $group = >>>
assign(@player, player())
if(has_permission(@player,titanicnut.skillup), run(/pex user $player group set $group ), die('You can not do that'))
<<<

# Warp to the build
/build = /warp build
/ra = /reloadaliases

# Promting people to high donator
/donatehigh $name = >>>
run(/pex user $name group add donatorhigh)
<<<

#Promoting people to low donator
/donatelow $name = >>>
run(/pex user $name group add donatorhigh)
<<<

# Storing your current postion
*:/storepos [$he='null'] = >>>
assign(@player,player())
assign(@value, pinfo(@player, 1))
if(is_null($he), msg(Use /storepos <NUMBER> to store your location and /getstoredpos <NUMBER> to retrive the stored location))
store_value(concat(@player,$he), @value)
<<<

# Retrive stored postions
*:/getstoredpos $he= >>>
assign(@player,player())
assign(@he,$he)
msg(get_value(concat(@player,@he)))
<<<

*:/huzza = >>>
assign(@player, player())
chatas(player(), Yells: HUZZA!)
runas(~op, /kill @player)
<<<

/removemod $name = /pex user $name group remove mod
/setmod $name = /pex user $name group add mod
/pset $pla [$ran='default'] = /pex user $pla group set $ran
/padd $pla [$ran='null'] = /pex user $pla group add $ran

#following credit jessassin
#move super fast!
*:/fast = >>>
if(has_permission(player(),titanicnut.fast),
msg('SUPER SPEED!')
set_peffect(player(), 1, 50, 50) #speed
#set_peffect(player(), 3, 100, 50) #haste (speed mining)
set_peffect(player(), 5, 50, 50) #strength
set_peffect(player(), 8, 8, 50) #jumping
#set_peffect(player(), 11, 50, 50) #damage resistance
#set_peffect(player(), 12, 50, 50) #fire resistance
#set_peffect(player(), 13, 50, 50) #water breathing
msg('To stop this effect, type /fixme'),
die('You are in survival')
)
<<<

#reset peffects (there is a better way to do this, but I am lazy! (I will turn into a loop later!)
*:/fixme = >>>
if(has_permission(player(),titanicnut.fast),
set_peffect(player(), 1, 0, 0)
set_peffect(player(), 5, 0, 0)
set_peffect(player(), 8, 0, 0),
die('You are in survival')
)
<<<

#fake join/leave
admin:/join $nme = broadcast(concat(color(e),$nme,' has joined the game'))
admin:/left $nme = broadcast(concat(color(e),$nme,' has left the game'))
#print all the colors and their code

*:/c = >>>
msg(concat(color(0)'0',color(1)'1',color(2)'2',color(3)'3',color(4)'4',color(5)'5',color(6)'6',color(7)'7'))
msg(concat(color(8)'8',color(9)'9',color(a)'a',color(b)'b',color(c)'c',color(d)'d',color(e)'e',color(f)'f'))
<<<

#prefix/suffix easy
admin:/pre $pf [$pla=''] = /pex user $pla prefix $pf
admin:/suf $sf [$pla=''] = /pex user $pla suffix $sf

#show tags
*:/tags=>>>
msg('These are all the tags currently in use:')
msg(concat(color(c)'[M]',color(f)'Moderator'))
msg(concat(color(6)'[D]',color(f)'Donator <$20'))
msg(concat(color(2)'[D]',color(f)'Donator >$20'))
msg(concat(color(7)'[H]',color(f)'Helper'))
<<<

#tells you if a player has a certain permission
*:/perm [$plr=player()] $perm = if(has_permission($plr,$perm),msg('YES'),msg('NO'))