Anonymous

alias hub107_dialog {
  dialog -ma hub107_dialog hub107_dialog_table
}

dialog hub107_dialog_table {
  title "DCX Test Dialog"
  size -1 -1 591 365
}

on *:dialog:hub107_dialog:*:*: {
  if ($devent == init) {
    dcx Mark $dname hub107_dialog_cb
    xdialog -b $dname +mntyz

    ;// Call initilisation alias
    hub107_dialog_init_dcx
  }
}

alias -l hub107_dialog_init_dcx {
  ;// Initialising control: User $nick Has joined your chanel (hub107) What do you want to do? (Text 3)
  xdialog -c $dname 3 text 10 45 400 20 center
  xdid -t $dname 3 User $nick Has joined your chanel (hub107) What do you want to do?

  ;// Initialising control: (Panel 5)
  xdialog -c $dname 5 panel 30 261 250 30

  ;// Initialising control: This Program is copywrite if you copy this William will have to kill you (Text 6)
  xdid -c $dname 5 6 text 2 0 230 200
  xdid -t $dname 6 This Program is copywrite if you copy this William will have to kill you

  ;// Initialising control: (Image 9)
  xdialog -c $dname 9 image 381 202 202 158
  xdid -i $dname 9 C:\Documents and Settings\william reiske\My Documents\My Pictures\biohazard.bmp

  ;// Initialising control: (Image 1)
  xdialog -c $dname 1 image 0 -1 237 17
  xdid -i $dname 1 C:\Documents and Settings\william reiske\My Documents\My Pictures\HUB107.bmp

  ;// Initialising control: Kick (Button 4)
  xdialog -c $dname 4 button 112 339 75 20 tabstop
  xdid -t $dname 4 Kick

  ;// Initialising control: (Line 10)
  xdialog -c $dname 10 line 8 102 580 2

  ;// Initialising control: Exit (Button 8)
  xdialog -c $dname 8 button 297 339 75 20 tabstop
  xdid -t $dname 8 Exit

  ;// Initialising control: Notice nick (Button 7)
  xdialog -c $dname 7 button 208 339 75 20 tabstop
  xdid -t $dname 7 Notice nick

  ;// Initialising control: (Line 11)
  xdialog -c $dname 11 line 8 200 600 2

  ;// Initialising control: Join hub107 (Button 2)
  xdialog -c $dname 2 button 13 340 75 20 tabstop
  xdid -t $dname 2 Join hub107

}

;// Callback alias for hub107_dialog
alias hub107_dialog_cb {
  if ($2 != mouse) {
    echo $color(info) -s */ hub107_dialog_cb: $1-
  }
}

;//
menu status,channel {
  hub107_dialog : hub107_dialog
}
menu menubar {
  HUB107:/hub107_dialog
}
on *:DIALOG:join hub107:sclick 2:9:{
  did -r $dname 1,6
}