All pastes #834033 Raw Edit

Anonymous

public text v1 · immutable
#834033 ·published 2007-12-27 21:37 UTC
rendered paste body
;//Kicks Counter
on *:kick:#:{
  if ($nick == $me) writeini options.ini kicks kicks $calc($options(kicks,kicks) +1)
  if ($knick == $me) writeini options.ini kicks ikicked $calc($options(kicks,kicked) +1)
  if ($knick != $me) && ($nick != $me) { writeini options.ini kicks kicked $calc($options(kicks,kicked) +1) }
}
on !@*:join:#: { if ($nick == %rk.nick) && (%rk > 0) { kick # $nick %rk.reason $calc(%rk.total - %rk) $+ / $+ $calc(%rk.total - 1) $iif($options(kicks,status) == 15«12 $+ $options(kicks,kicks) $+ 15» ) | dec %rk } }

alias close.toolbar { //dialog -x toolbar toolbar | dialog -m toolbar toolbar | dll $UltraDock UnDock 0 $dialog(toolbar).hwnd top toolbar | dialog -x toolbar toolbar }
alias open.toolbar { //dialog -m toolbar toolbar | dialog -x toolbar toolbar | dll $UltraDock Dock 0 $dialog(toolbar).hwnd top toolbar | dialog -m toolbar toolbar }


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 }
    }
  }
}