Oper İşlem Tablosu

- ;##############################################
;# by JuLiet - 09/12/08
;# Oper Islem Tablosu
;# İlk ve basit bir çalışma
;#
dialog tablocaner {
title "Oper Islem Tablosu"
size -1 -1 105 53
option dbu
button "Kill Atmak", 2, 3 3 33 10
button "Shun Atmak", 3, 3 16 33 10
button "Shun Silmek", 4, 3 29 33 10
button "Gline Atmak", 5, 36 3 33 10
button "Ns-Getpass", 6, 36 16 33 10
button "Gline Sil", 7, 36 29 33 10
button "Zline Atmak", 8, 69 3 33 10
button "Cs-Getpass", 9, 69 16 33 10
button "Zline Sil", 10, 69 29 33 10
button "Confused Tarafindan Yapilmistir.", 11, 3 42 100 10, ok
}
on 1:dialog:tablocaner:sclick:*: {
if $did == 2 { .kill $$?="Kill Atilicak Nicki Yaziniz" $$?="Kill Nedenini Yaziniz" }
if $did == 5 { .gline $$?="Gline Atilacak Nicki Yaziniz" : $+ $$?="Gline Nedenini Yaziniz" }
if $did == 8 { .zline $$?="Zline Atilacak Nicki Yaziniz" : $+ $$?="Zline Nedenini Yaziniz" }
if $did == 3 { .tempshun $$?="Shun Atilacak Nicki Yaziniz" $$?="Shun Nedenini Yaziniz" }
if $did == 6 { .ns getpass $$?="Sifresi Alinicak Nicki Yaziniz" }
if $did == 9 { .cs getpass #$$?="Sifresi Alinicak Kanali Yaziniz. Örnek: #sohbet" }
if $did == 4 { .tempshun - $+ $$?="Shun Silinicek Nicki Yaziniz. Not: Tempshun atar." }
if $did == 7 { .gline -*@ $+ $$?="Gline Silinicek İp'yi Yaziniz. Örnek: 80.100.45.45" }
if $did == 10 { .zline -*@ $+ $$?="Zline Silinicek İp'yi Yaziniz. Örnek: 80.100.45.45" }
}
alias tablocaner if $dialog(tablocaner) == $null { dialog -ma tablocaner tablocaner }
menu channel,status,menubar {
Oper Islem Tablosu:.tablocaner
}