losowy kod chat

function kod(t: text="") :: text:
	set {_znaki} to "qwertyuiopasdfghjklzxcvbnm1234567890!@#$%^&*()"
	set {_znaki::*} to {_znaki} split at ""
	set {_kod} to ""
	loop 10 times:
		set {_los} to random element out of {_znaki::*}
		set {_kod} to "%{_kod}%%{_los}%"
	return {_kod}
every 10 minutes:
	set {KOD} to kod()
	send "&&Nowy kod na chacie! Przepisz aby otrzymac nagrode"
	send "&6%{KOD}%"
on chat:
	if {KOD} is "<brak>":
		stop
	else:
		if message is {KOD}:
			send "&7%player% wygral!"
			set {KOD} to "<brak>"
			add 150 to player's balance