set dice1 {
	"kussen"
	"strelen"
	"likken"
	"zuigen"
	"aanraken"
	"knabbelen"
	"alles doen wat je maar wilt"
	"alles doen wat je maar wilt"
      }

      set dice2 {
	"lippen"
	"nek"
	"borst"
	"oren"
	"overal waar je maar wilt"
	"overal waar je maar wilt"
	"tepel"
	"teen"
	"kont"
	"kruis"
      }
      putserv "PRIVMSG $chan :${nick} rolled the Sex Dice!"
      set choice1 [lindex $dice1 [rand [llength $dice1]]]
      set choice2 [lindex $dice2 [rand [llength $dice2]]]
      if {$choice2 == "overal waar je maar wilt" } {
	putserv "PRIVMSG $chan :${nick}, Je moet bij ${result} ${choice1} ${choice2}!"
      } else {
	putserv "PRIVMSG $chan :${nick}, Je moet bij ${result} ${choice1} aan de ${choice2}!"
      }
    }
  }
}