For changing the direction of write try use $qt(DIRECTION) [e.g: $qt(C:\Users\Dimitris\Desktop\testfolder)]

Help details: /help $qt + /help /write

Try use this code:

Code:
on *:text:!Burger $2*:#MyRoom: { 
write $nick $+ .chr $nick Burger $2-
.notice $nick You are now a Burger $2-
}