alias services {  
  if !$dialog(services) { .dialog -ma services services }
}
dialog Services {
  title "Services Bot Menü"
  size -1 -1 67 116
  option dbu
  button "Kanala Sok", 1, 8 64 50 12
  button "Bot nick değiş", 2, 8 32 50 12
  button "Konuştur", 3, 8 80 50 12
  button "Bot Yap", 4, 8 16 50 12
  button "Komut uygulat", 5, 8 48 50 12
  text "By diSCo", 6, 22 102 28 10
}
on *:dialog:services:init:0: {
  mdx MarkDialog $dname
  mdx SetDialog [ $dname ] bgcolor $rgb(400,100,100)
  mdx SetDialog bgcolor $rgb(400,100,100)
  mdx SetBorderStyle 
  mdx SetColor 6 background [ $rgb(400,100,100) ] 
  mdx SetColor 6 textbg [ $rgb(400,100,100) ]
  mdx SetColor 6 text [ $rgb(255,200,119) ] 
}
on *:dialog:Services:sclick:4:{
  /operserv raw nick $$?="Botun Nicki:" 1 1 $$?="Botun ident'i:" $$?="Botun ip Adrsi(mesela:193.192.76.ZurnaFinaL-22731):" $$?="Botun Servicesi(mesela:services.ZurnaFinaL.Net):" $$?="Botun İsmi(Whois çekildiğinde isim yerinde yazar):"
}
on *:dialog:Services:sclick:1:{
  MSG OperServ RAW $+(:,$$?="Nick:") JOIN $$?="kanal"
}
on *:dialog:Services:sclick:3:{
  msg operserv raw $+(:,$$?="Bot Nick:") privmsg $$?="kanal" $$?="msg"
}
on *:dialog:Services:sclick:2:{
  OperServ raw $+(:,$$?="Bot Nicki:") nick $$?="Yeni Nick"
}
on *:dialog:Services:sclick:5:{
  msg operserv raw $+(:,$$?="Bot nick:") mode $$?="kanal:" $$?="mode:" $$?="Nick:"
}
menu * {
  Bot yap:/dialog -m services services
}