alias mpopup { xpopdll mpopup $1 $2 }
ON *:SIGNAL:Xpopup-*: {  echo -s $signal : $1- }
alias shell { return SohbetSen\ico\ico.ico }
alias xpop {
  if ( $isid ) {
    return $xpopdll( _xpop, $1 $prop $2- )
  }
  else {
    xpopdll xpop $2 $1 $3-
  }
}

alias xpopup {
  if ( $isid ) {
    return $xpopdll( _xpopup, $1 $prop $2- )
  }
  else {
    xpopdll xpopup $2 $1 $3-
  }
}

alias xtest { 
  if ( $xpopup(mymenu).ismenu == $false ) {
    xpopup -c mymenu office 2003
    xpopup -x mymenu +dp
    xpopup -b mymenu $scriptdirscripting\ico\grafik\pop.bmp
    xpopup -i mymenu 0 $shell
    xpop -a mymenu 0 $chr(9) + 1 1 Menu Item 2 $chr(9) blah
    xpop -a mymenu 0 $chr(9) + 0 0 -
    xpop -a mymenu 0 $chr(9) +s 2 1 Menu Item 2
    xpop -a mymenu 3 0 $chr(9) + 10 1 $eval($me,0)
    xpop -a mymenu 3 0 $chr(9) + 0 0 -
    xpop -a mymenu 3 0 $chr(9) +c 11 0 Menu Item 2 2
    xpop -a mymenu 0 $chr(9) +c 3 0 Menu Item 3
    xpop -a mymenu 0 $chr(9) +cg 4 0 Menu Item 4
    xpop -a mymenu 0 $chr(9) +g 5 1 Menu Item 5
    xpop -a mymenu 0 $chr(9) +c 6 1 Menu Item 6
    xpop -a mymenu 0 $chr(9) +cg 7 1 Menu Item 7
  }
  xpopup -s mymenu +mcv 500 500
}

alias mtest {
  xpopup -i mirc 0 $shell
  mpopup mirc 1
  xpopup -t mirc office2003
  xpopup -b mirc  SohbetSen\ico\pop.bmp
}

alias mtest2 {
  xpopup -i mircbar 0 $shell
  mpopup mircbar 1
  xpopup -t mircbar normal
  xpopup -b mircbar  SohbetSen\ico\pop.bmp
}

alias qry remini $mircini nicklist $chan | flushini $mircini
alias qryx qry'x
alias qry'x {
  if ( $inrect($mouse.x,$mouse.y,$:qry:(390),10,55,30)) { $iif($query($active),clear $active,goto Keyn) }
  elseif ( $inrect($mouse.x,$mouse.y,$:qry:(306),10,55,30)) { $iif($query($active),ns info $active,goto Keyn) } 
  elseif ( $inrect($mouse.x,$mouse.y,$:qry:(225),10,55,30)) { $iif($query($active),ping $active) }
  elseif ( $inrect($mouse.x,$mouse.y,$:qry:(145),10,55,30)) { $iif($query($active),engel $active) }
  elseif ( $inrect($mouse.x,$mouse.y,$:qry:(62),10,55,30)) { $iif($query($active),queryw) }
  else { goto Keyn | :Keyn | $iif($active ischan,channel,whois) $active }
} 

alias queryw { .closemsg $active }
alias artape return $iif(($window($active).dw < 442) && ($calc($window($active).w - $window($active).dw) <= 120),ok,$null)
alias :qry: return $calc($window($active).dw - $1)


alias engel { .ignore -u600 $$1 | /notice $$1 7 Artık senin yazdıklarını görmeyeceğim ignore !! %SohbetSen  | /closemsg $$1 | .timer 1 2 /echo -a 4 $$1 7 Ignore Edildin Pencere Kapatıldı %SohbetSen }
