function List(x,li){x='[list]\n';do{li=prompt('Wpisz element listy (jesli chcesz zakonczyc dopisywanie do listy pozostaw pole puste lub kliknij \'Anuluj\'','');x+=li?'[*]'+li+'[/*]\n':''}while(li);A(x+'[/list]')}
function Url(u,d,z){A("[url="+(u=prompt("Podaj adres strony lub pliku","http://"))+"]"+(s()?s():((d=prompt("Opis odnosnika",""))?d:u))+"[/url]")}
function Img(z){A("[img]"+((z=s())?z:prompt("Podaj sciezke do grafiki","http://"))+"[/img]")}
function sfc(l,t){A("["+t+"="+l.value+"]"+s()+"[/"+t+"]")}
function Quote(t){A("[quote"+((t=prompt('Podaj imie cytowanej osoby'))?"="+t:"")+"]"+s()+"[/quote]")}