一個mush 的小玩意兒...

vase

1. sub hideMainWindow {
   
2.     my $positionString = GetMainWindowPosition();
   
3.     my ($left, $top, $width, $height) = split /,/, $positionString;
   
4. 
   
5.     if ($left + $width > 0 or $top + $height > 0) {
   
6. 
   
7.         #-------------------------
   
8.         # if visiable we will hide the main window
   
9.         #-------------------------
   
10.         MoveMainWindow(-1 * $width - $left, -1 * $height - $top, $width, $height);
    
11.     }
    
12.     else {
    
13. 
    
14.         #-------------------------
    
15.         # if invisiable we move the main window that can be visiable
    
16.         #-------------------------
    
17.         MoveMainWindow(-1 * ($left + $width), -1 * ($height + $top), $width, $height);
    
18.     }
    
19. }

复制代码

ddid

呵呵，终于有perl的脚本了。

MUSH支持的：VBScript, JScript, LUA, PerlScript, PHPScript, Python 这里全有了，就差 Tcl 和 Ruby 的了。

lzkd

原帖由 ddid 于 2009-12-30 01:42 PM 发表
呵呵，终于有perl的脚本了。

MUSH支持的：VBScript, JScript, LUA, PerlScript, PHPScript, Python 这里全有了，就差 Tcl 和 Ruby 的了。

我是PHP代表....嘿嘿..