Untitled

;//KiCks
alias kicks {
  dialog -ma kicks kicks_table
}

dialog kicks_table {
  title "Kicks - הודעות בעיטה"
  size -1 -1 158 131
}

on *:dialog:kicks:*:*: {
  if ($devent == init) {
    dcx Mark $dname kicks_cb
    xdialog -b $dname +ty

    ;// Call initilisation alias
    kicks_init_dcx
  }
}

alias -l kicks_init_dcx {
  ;// Initialising control: סופר בעיטות - Counter (Box 1)
  xdialog -c $dname 1 box 3 28 150 100
  xdid -t $dname 1 סופר בעיטות - Counter
  xdid -l $dname 1 root $chr(9) +pl 0 1 0 0

  ;// Initialising control: ראית נבעטים (Text 5)
  xdid -c $dname 1 5 text 76 47 70 20
  xdid -t $dname 5 ראית נבעטים

  ;// Initialising control: Edit (Edit 3)
  xdid -c $dname 1 3 edit 3 45 70 20 autohs autovs tabstop readonly
  xdid -a $dname 3 $options(kicks,kicked)

  ;// Initialising control: אתה בעטת (Text 4)
  xdid -c $dname 1 4 text 83 21 60 20 right
  xdid -t $dname 4 אתה בעטת

  ;// Initialising control: אישור (Button 7)
  xdid -c $dname 1 7 button 82 73 60 20 tabstop
  xdid -t $dname 7 אישור

  ;// Initialising control: Edit (Edit 2)
  xdid -c $dname 1 2 edit 3 19 70 20 autohs autovs tabstop readonly
  xdid -a $dname 2 $options(kicks,kicks)

  ;// Initialising control: Kicks.text (Button 6)
  xdid -c $dname 1 6 button 3 72 75 20 tabstop
  xdid -t $dname 6 Kicks.txt

  ;// Initialising control: הפעל מונה בעיטות (Check 8)
  xdialog -c $dname 8 check 6 2 150 20 tabstop
  xdid -t $dname 8 הפעל מונה בעיטות
  $iif($options(kicks,status) == 1,xdid -c $dname 8)
}

;// Callback alias for kicks
alias kicks_cb {
  if ($1 == kicks) {
    if ($2 == sclick) {
      if ($3 == 8) { writeini options.ini kicks status $xdid(kicks,8).state }
      if ($3 == 6) { run kicks.txt }
      if ($3 == 7) { dialog -x kicks kicks_table }
    }
  }
}