您尚未登录。

#1 2011-08-19 21:01:52

eexpress
论坛版主
注册时间: 2011-08-19
帖子: 6

常用脚本

● cat paste-img/pasteimg.pl
#!/usr/bin/perl

use utf8;	# 文件路径才可以使用中文。
use Getopt::Long;
use Pod::Usage;

#$name="eexp";	# 缺省的昵称
$name=`id -un`; chomp $name;
$select="imagebin";	# 缺省的网站
GetOptions("select=s"=>\$select, "list"=>\$list, "help"=>\$help, "name=s"=>\$name);
#----------------------------------
if($help || ! $ARGV[0]){pod2usage(-verbose => 2); exit;}
#----------------------------------
if(! $list){
use Net::DBus; 
$bus = Net::DBus->session->get_service('org.freedesktop.Notifications')
->get_object('/org/freedesktop/Notifications','org.freedesktop.Notifications');
if(! $ARGV[0]){
my $fp='/tmp/pi.png';
	print "after cursor changed, use mouse to take screenshot...\n";
	$bus->Notify("paste-img", 0, "info", "准备截图", "光标改变后,使用鼠标截图。。。", [], { }, -1);
	unlink $fp;
	if(-f '/usr/bin/scrot'){`/usr/bin/scrot -sb $fp`;}
	elsif(-f '/usr/bin/import'){`/usr/bin/import -frame $fp`;}
	$ARGV[0]=$fp; 
}
if(! -f $ARGV[0]){
$bus->Notify("paste-img", 0, "error", "文件无效 .$ARGV[0].", ':(', [], { }, -1);exit;
}
}
#----------------------------------
%web=(
	"http://imm.io/"=>{"image"=>$ARGV[0]},
	"http://www.cjb.net/"=>{"image"=>$ARGV[0]},
	"http://kimag.es/"=>{"userfile1"=>$ARGV[0]},
	"http://imagebin.org/index.php?page=add"=>{"nickname"=>$name,"image"=>$ARGV[0],"disclaimer_agree"=>"Y"},
	"http://paste.ubuntu.org.cn/"=>{"poster"=>$name,"screenshot"=>$ARGV[0],"submit"=>"paste"},
	"http://uploadpie.com/"=>{"uploadedfile"=>$ARGV[0],"result"=>'value.*?auto_select,http[^"]*'},
# <input type="text" id="uploaded" value="http://uploadpie.com/LkkXu" onclick="auto_select();" readonly="readonly" />
#        "http://picpaste.com/"=>{"upload"=>$ARGV[0],"rules"=>"yes","submit"=>"submit","result"=>'Picture\ URL.*/a,http[^"]*'},
#$mech->select("rules","yes");
#        "http://twpic.org/"=>{"attached"=>$ARGV[0],"result"=>'url.*?url,http[^\[]*'},
#        <textarea name="textarea" cols="100" wrap="soft" rows="3">[url=http://twpic.org][img]http://twpic.org/uploads2/6ed6ac3661.png[/img][/url]</textarea 无法获取结果网页。
#        "http://tinypic.com/"=>{"the_file"=>$ARGV[0]},	#Error GETing http://tinypic.com/ 需要图片校验 nnnnnd
#        "http://imgur.com/"=>{'file[]'=>$ARGV[0]},	#无法提交
#        "http://www.52tietu.com/"=>{"file1"=>$ARGV[0],"result"=>'value="http.*?ondblclick,http[^"]*'},	#假冒浏览器,都不返回。nnnnd
#        原图地址<br>
#        <input size="20" id="link_1_1"  value="http://img0.52tietu.com/?MF8wXzBfMjAxMDEwMDUyMjU0NTkzMw.png" ondblclick="copyText('link_1_1')"> <a href="javascript:void(0);" onclick="javascript:copyText('link_1_1');">点击复制</a>
	);
#----------------------------------
#print Data::Dumper->Dump([[%web]]);exit;
#----------------------------------
if($list){
foreach (keys %web){s'http://'';s'/.*'';$_.="\t\e[30;42m*\e[0m" if /$select/;
print "$_\n";}
exit;
}
#----------------------------------
#print "\$name=$name.\n";
#print "\$select=$select.\n";
sub pc{
my($n,$s)=@_;
printf "%-18s => .%s.\n",$n,$s;
}
#----------------------------------
use WWW::Mechanize;
use Encode;

my $add;
foreach (keys %web){$add=$_,last if /$select/;}
if(!$add){$bus->Notify("paste-img", 0, "error", '无效网站地址', ':(', [], { }, -1);exit;}
pc "select","\e[30;42m$select\e[0m";
#----------------------------------
%h=%{$web{$add}};
while(my($k,$v)=each %h){pc $k,$v;}
$submit="";if($h{"submit"}){$submit=$h{"submit"}; delete $h{"submit"};}
$result="";if($h{"result"}){$result=$h{"result"}; delete $h{"result"};}
#----------------------------------
my $mech = WWW::Mechanize->new();
#my $mech = WWW::Mechanize->new(agent=>'Opera/9.80 (X11; Linux i686; U; en) Presto/2.6.30 Version/10.60');
$mech->get($add);
if($submit eq "") {$mech -> submit_form(with_fields=>\%h);}
else{$mech -> submit_form(with_fields=>\%h,button=>$submit);}
#----------------------------------
if ($mech->success()) {
	if($result eq ""){$rr=$mech->uri();}
	else{
		$rr=$mech->content();
#                $rr=encode("utf-8",decode("gbk",$rr));
#                s/[\[\]]/ /g;
#                print $rr;
		@ss=split ",",$result;
		foreach (@ss){
			$rr=~/$_/m; $rr=$&;
			pc "parse",$rr;
			}
	}
	pc "Paste URL","\e[30;42m$rr\e[0m";
	$bus->Notify("paste-img", 0, "sunny", '贴图地址(已复制到剪贴板)', $rr, [], { }, -1);
	`echo $rr|xsel -i`;
} else {
	$bus->Notify("paste-img", 0, "error", '贴图失败', ':(', [], { }, -1);
}
#----------------------------------
=pod

=head1 NAME

B<paste-img> - Paste image to serval web hosts, URL return in clipboard(PRIMARY).

=head1 SYNOPSIS

B<paste-img> [OPTION]... [IMAGE_FILE]...

=head1 OPTION

=head2 -s, --select

Select web host name. Can use short name as key word, such as "kimag" could refer to "kimag.es". All available host names can be list by using "-l".

=head2 -l, --list

List all hosts name available.

=head2 -h, --help

This help.

=head2 -n, --name

Nick name send to web host if support. default name is your login id name.

=head1 AUTHOR

Written by I<eexpress> (eexpress@163.com).

=cut

只会打deb包。

● cat cairo-weather/cairo-weather.pl
#!/usr/bin/perl

use Encode qw(_utf8_on _utf8_off encode decode);
use Cairo;
#use Gtk2;
use Gnome2::GConf;
use File::Basename qw/basename dirname/;
#use POSIX qw(strftime);
#use feature qw(switch say);

$appdir="/usr/share/cairo-weather/";
if(! -e $appdir){
$appdir=dirname (-l $0?readlink $0:$0);
}
$outputfile="/tmp/weather.png";

my $gconf = Gnome2::GConf::Client -> get_default;
$rcdir="$ENV{HOME}/.config/cairo-weather/";
$rc="$ENV{HOME}/.config/cairo-weather/config";
$rcsys="/usr/share/cairo-weather/config";
if (! -e $rc && -e $rcsys){`mkdir -p $rcdir; cp $rcsys $rc`;}
open RC,"<$rc"; @rc=grep ! /^\s*#/ && ! /^\s*$/,<RC>; close RC;
%hrc=map{split /\s*=/} @rc;
chomp %hrc;
foreach (keys %hrc){$hrc{$_}=~s/['"]//g;}
while (my ($k,$v)=each %hrc){print "{$k}\t=> $v\n";}
#my $bg_file = $ENV{'HOME'}.'/.gnome2/backgrounds.xml';
#while (my ($key, $value) = each(%{$xml -> {'wallpaper'}})){
#    push @wallpapers, $key if $value -> {'deleted'} eq 'false';
#}
#`gconftool-2 -s /apps/nautilus/preferences/show_desktop false -t bool`;
# ------以下为可自定义的部分------
#屏幕偏移坐标,可以负坐标对齐
$pos=$hrc{pos}//"-80,80";
$font=$hrc{font}//"Vera Sans YuanTi";
# 壁纸文件。
#$gnomebg=`gconftool-2 -g /desktop/gnome/background/picture_filename`;
$gnomebg=$gconf->get("/desktop/gnome/background/picture_filename");
#chomp $gnomebg;
$bgfile=-e $hrc{bgfile}?$hrc{bgfile}:$gnomebg;
# 城市天气信息地址
#$app_setbg=$hrc{app_setbg}//"show_png.run";
$url=$hrc{url}//"http://qq.ip138.com/weather/hunan/ChangSha.wml";
$scale=$hrc{scale}//0.6;
$icondir=-e $hrc{icondir}?$hrc{icondir}:"$appdir/weather-icon";
%indexcolor=(			# RGBA
	"t"=>"#E55E23E0",	# 今天
	"w"=>"#E55E2390",	# 周日
	"o"=>"#C8C8C8E0",	# 其他
	"0"=>"#14141490",	# 今天背景
	"1"=>"#14141432",	# 周日背景
);
$indexcolor{"t"}=$hrc{"ctoday"} if $hrc{"ctoday"};
$indexcolor{"w"}=$hrc{"cweek"} if $hrc{"cweek"};
$indexcolor{"o"}=$hrc{"cother"} if $hrc{"cother"};
$indexcolor{"0"}=$hrc{"btoday"} if $hrc{"btoday"};
$indexcolor{"1"}=$hrc{"bweek"} if $hrc{"bweek"};

$show_app=$hrc{show_app}//"$appdir/show_png.run";
$refresh=$hrc{refresh}//"0";
if(! $refresh){
if ((localtime((stat($outputfile))[9]))[7] eq (localtime)[7]){
#文件是今天的
show();
exit;
}}
#until($_[3]=~/answer/){@_=`nslookup qq.ip138.com`;};
# ------以上为可自定义的部分------
my $city;
#@t=localtime(time);$today=($t[5]+1900)."-".($t[4]+1)."-".$t[3];
chdir "$appdir/calendar";
use LWP::Simple; $_=get($url);
if($_){	#取得了网页。解析。只留天气和温度,风向。
	$_=encode("utf8",$_);
if ($url=~/qq\.ip138\.com/){
	/title="(.*?)天气预报"/; $city=$1;
	s/.*?(?=\d{4}-\d)//s;s/\n.*//s;	#去掉头尾无用信息。
	s/<br\/><br\/><b>/\n/g; s/<br\/>/\t/g; s/<\/b>//g; s/<b>//g;
	s/℃/°C/g; s/~/-/g; s/\x0d/\n/g;
	s/2\d\d\d.*?\t//g;
	@_=split "\n",$_;
	}
elsif ($url=~/wap\.weather\.gov\.cn/){
	/※(.*?)\d\d/; $city=$1;
	@_=/【\d.*?<img/sg;
	for(@_){
	s/^.*nbsp;(\d)/\1/sg;
	s/[\n\r\ ]//g;s/&nbsp;//g;s/<img//g;
	s/^(.*)\t+(.*)/\2\t\1/g;
	}
	}
elsif ($url=~/m\.weather\.com\.cn/){
	s/[{},]/\n/g; s/"//g;
	%h=map{split /:/} grep /city\b|weather\d|temp\d|wind\d/,split /\n/;
	$city=$h{city};
	for $i (1..6){
	$_=$h{"weather".$i}."\t".$h{"temp".$i}."\t".$h{"wind".$i};
	push @_,$_;
	}
	}
else {die "no recognized url format.\n";}
} else {die "can not fetch web.\n";}
#        for (@_){print "$_\n";}; exit;
#---------------------------------
$max=@_;
@alllunar=grep {! /\d{4}/ || /2011/} `/usr/bin/calendar -A $max`;
chdir $icondir;
-f "00.png" || die "can not fetch picture file.\n";
$surface = Cairo::ImageSurface->create_from_png ("00.png");
$size=$surface->get_width()*$scale;
#$size=$size*$screennw/1280;
$w0=$size*1.8;$h0=$size/3;	# 单位方框尺寸
$x0=$size/6; $y0=$size/2;
$surface = Cairo::ImageSurface->create ('argb32',$w0*$max,$size*4);
$year="";$month=""; $cnt=0;
#---------------------------------
for (@_){
#next if ! /$today/ && ! $is;
@t=localtime(time+86400*$cnt);
$sign="o"; if($cnt==0){$sign="t";$tweek=$t[6];} else{if (($t[6]==0)||($t[6]==6)){$sign="w";}}
$cnt++;
#last if ($cnt+1>$max);
chomp;
#($sign,$date,$weather,$temp,$wind)=split "\t",$_;
($weather,$temp,$wind)=split "\t",$_;
#($y,$m,$d)=split "-",$date;
$y=$t[5]+1900;$m=$t[4]+1;$d=$t[3];
#---------------------------------
@lunar=grep /$m月.*$d \t/,@alllunar;
$_=$lunar[0];
chomp;s/^.*\t//;s/\ (.*)//;$lunar[0]=$_;
#---------------------------------
if($year==""){$year=$y;}elsif($year==$y){$y="";}else{$year=$y;}
if($month==""){$month=$m;}elsif($month==$m){$m="";}else{$month=$m;}
$y.="年" if($y);
$m.="月" if($m);
$d.="日";
#---------------------------------
$color=$indexcolor{$sign};
if($sign eq "t"){drawframe($x0-$size/6,$size/4,$indexcolor{"0"});}
if($sign eq "w"){drawframe($x0-$size/6,$size/4,$indexcolor{"1"});}
#---------------------------------
$y1=$y0;
$fsize=$size/5;
drawtxt("$m$d - $lunar[0]",$x0,$y1);
$y1+=$h0;
$_=$weather; $x2=$x0+$size/2; $y2=$y1+$size/2;
s/小到//;s/中到//;s/大到//;
s/小雨/09.png/g; s/中雨/10.png/g; s/大雨/11.png/g;s/暴雨/12.png/g;
s/雨夹雪/07.png/g; s/小雪/13.png/g; s/中雪/14.png/g; s/大雪/15.png/g;
s/暴雪/16.png/g;s/多云/26.png/;s/晴/32.png/;s/阴/31.png/;s/转/-/;s/雷阵雨/17.png/;s/阵雨/09.png/;
if(/-/){
my ($img1,$img2)=split "-";
$currentpng="$img1" if ! $currentpng;
#drawpng("$img1",$x0,$y1-$size/8);
drawpng("$img1",$x0,$y1);
drawpng("$img2",$x0+$size/2,$y1+$size/4);
}else{
drawpng("$_",$x0,$y1);
$currentpng="$_" if ! $currentpng;
}
$y1+=1.5*$size;
#drawpangotxt("<span color='blue'>$weather</span>",$x0,$y1);
drawtxt("$weather",$x0,$y1);
$y1+=$h0; $_=$temp; s/°C/℃/g;
drawtxt("$_",$x0,$y1);
if($wind){
$y1+=$h0;
$fsize=$size/6;
#_utf8_on($wind);$wind=~s/.{10}/$&\\n\\n/g;_utf8_off($wind);
($wind,$tmp)=split /\//,$wind;
drawtxt("$wind",$x0,$y1);
drawtxt("$tmp",$x0,$y1+$h0) if($tmp);
}
$x0+=$w0;
}
#@week=('㊐','㊀','㊁','㊂','㊃','㊄','㊅');
@week=('日','壹','貳','叁','肆','伍','陸');
$color=$indexcolor{"t"};
drawstamp($week[$tweek],$size,$size*2.5,5);
drawstamp($year." ".$city, $w0*$max/2, $size*3.5,1.8,-0.2);
$surface->write_to_png ("$outputfile");
show();
#---------------------------------
#$deskpic="/tmp/weather-all.png";
#$surface = Cairo::ImageSurface->create_from_png ("/home/eexp/图片/木纹.png");
#$img = Cairo::ImageSurface->create_from_png ("$outputfile");
#$cr = Cairo::Context->create ($surface);
#($posw,$posh)=split ',',$pos; 
#print "$pos:$posw, $posh\n";
#if($posw<0){$posw=$surface->get_width()-$img->get_width()+$posw;}
#if($posh<0){$posh=$surface->get_height()-$img->get_height()+$posh;}
#$cr->set_source_surface($img,$posw,$posh);
#$cr->paint;
#$surface->write_to_png ("$deskpic");
#print "$posw, $powh. write to png. $bgfile + $outputfile = $deskpic\n";
#`gconftool-2 -s /desktop/gnome/background/picture_filename $deskpic -t string`;
#exit;
#$_=`xwininfo -root`;
#/Width:\s*\K\d+/; $screennw=$&; /Height:\s*\K\d+/; $screenh=$&;
#---------------------------------
sub show(){
# 如果安装有habak,则设置成壁纸。否则使用内建的show_png.run 显示。
if (-e '/usr/bin/habak'){
$gconf->set("/apps/nautilus/preferences/show_desktop",{type=>'bool',value=>'false'});
$cmd="habak -ms \"$bgfile\" -mp $pos -hi $outputfile";
} else {$cmd="$show_app $outputfile";}
print "\e[1;37;41m$cmd\e[0m\n";
`notify-send -i "$icondir/$currentpng" "Desktop Weather with Cairo" "$cmd"` if -e "/usr/bin/notify-send";
`$cmd`;
}
#---------------------------------

sub drawpng(){
my $img = Cairo::ImageSurface->create_from_png ("$_[0]");
my $cr = Cairo::Context->create ($surface);
$cr->translate($_[1],$_[2]);
$cr->scale($scale,$scale);
$cr->set_source_surface($img,0,0);
#$cr->set_source_surface($img,$_[1]/$scale,$_[2]/$scale);
$cr->paint;
}

#sub drawpangotxt(){
#my $cr = Cairo::Context->create ($surface);
#my $pango_layout = Gtk2::Pango::Cairo::create_layout ($cr);
#my $font_desc = Gtk2::Pango::FontDescription->from_string("$font $fsize");
#$pango_layout->set_font_description($font_desc);
#$pango_layout->set_markup (decode("utf-8", "$_[0]"));
#my ($R,$G,$B,$A)=split ',',$color;
#$cr->set_source_rgba(0,0,0,1);	#缺省黑色阴影
#$cr->move_to($_[1]+1,$_[2]+1);
#Gtk2::Pango::Cairo::show_layout ($cr, $pango_layout);
#$cr->show_page();
#$cr->set_source_rgba($R/256,$G/256,$B/256,$A/256);	#缺省白色字体
#$cr->move_to($_[1],$_[2]);
#Gtk2::Pango::Cairo::show_layout ($cr, $pango_layout);
#$cr->show_page();
#}

sub drawstamp()
{
my $rotate=$_[4]//-0.4;
my $cr = Cairo::Context->create ($surface);
$cr->select_font_face("$font",'normal','bold');
$cr->set_font_size($fsize*$_[3]);
$color=~s/#//; my @C=map {$_/256} map {hex} $color=~/.{2}/g;
my $ebb=1.5;
$cr->set_source_rgba($C[0]/$ebb,$C[1]/$ebb,$C[2]/$ebb,$C[3]/$ebb);
$cr->set_operator("saturate");
#$cr->set_operator("dest-over");	#被背景覆盖
#clear, source, over, in, out, atop, dest, dest-over, dest-in, dest-out, dest-atop, xor, add, saturate
$cr->move_to($_[1],$_[2]);
$cr->rotate($rotate);
$cr->text_path("$_[0]");
$cr->set_line_width(3);
$cr->fill_preserve();
$cr->stroke();

for $i (1..$_[3]){
$i++;
$cr->set_source_rgba($C[0]-$i/3,$C[1]-$i/3,$C[2]-$i/3,$C[3]/1.2);
$cr->rotate(-$rotate);
$cr->move_to($_[1]-$i,$_[2]+$i);
$cr->rotate($rotate);
$cr->text_path("$_[0]");
$cr->fill_preserve();
$cr->stroke();
}
}

sub drawtxt(){
my $cr = Cairo::Context->create ($surface);
$cr->select_font_face("$font",'normal','bold');
$cr->set_font_size($fsize);
$cr->set_source_rgba(0,0,0,1);	#缺省黑色阴影
$cr->move_to($_[1]+1,$_[2]+1);
$cr->show_text("$_[0]");
$color=~s/#//; my @C=map {$_/256} map {hex} $color=~/.{2}/g;
$cr->set_source_rgba($C[0],$C[1],$C[2],$C[3]);
$cr->move_to($_[1],$_[2]);
$cr->show_text("$_[0]");
}

sub drawframe(){
my ($x,$r,$c)=@_;
my $w=$w0;
my $h=3.5*$size;
my $cr = Cairo::Context->create ($surface);
$PI=3.1415926/180;
$cr->move_to($x+$r,0);
$cr->rel_line_to($w-2*$r,0);
$cr->rel_curve_to(0,0,$r,0,$r,$r);
$cr->rel_line_to(0,$h-2*$r);
$cr->rel_curve_to(0,0,0,$r,-$r,$r);
$cr->rel_line_to(-($w-2*$r),0);
$cr->rel_curve_to(0,0,-$r,0,-$r,-$r);
$cr->rel_line_to(0,-($h-2*$r));
$cr->rel_curve_to(0,0,0,-$r,$r,-$r);
$c=~s/#//; my @C=map {$_/256} map {hex} $c=~/.{2}/g;
$cr->set_source_rgba($C[0],$C[1],$C[2],$C[3]);
$cr->fill;

#return if $sign eq "w";
$cr->set_line_cap(butt);	# butt, round, square
$cr->set_line_join(round);	# miter, round, bevel
$cr->set_operator("clear");
my $l=$size/10;
$cr->set_line_width($l/2);
for $i (0..$l*1.5){
	$cr->move_to($x,$size+$i*$l);
	if($sign eq "t"){
	$cr->rel_curve_to($w/3,$l*2,$w*2/3,-$l*2,$w,0);
	}else{
	for $d (1,-1,1,-1){$cr->rel_line_to($w/4,$d*$h/20);}
	}
	$cr->stroke;
	}
}
git clone git://git.ubuntu.org.cn/eexp-bin.git

离线

#2 2011-08-19 21:07:26

长头发的和尚
论坛版主
注册时间: 2011-08-19
帖子: 53

Re: 常用脚本

码盲路过 :em70

离线

#3 2011-08-19 21:11:44

phoenixlzx
晩ご飯だよー
注册时间: 2011-08-19
帖子: 1,789
个人网站

Re: 常用脚本

怎么这么多码盲..... :em20

看来神不是那么好做的... :em04

离线

#4 2011-08-20 15:58:28

SmallV
会员
注册时间: 2011-08-19
帖子: 146

Re: 常用脚本

:em70

离线

#5 2011-08-20 16:18:43

nerver
论坛版主
注册时间: 2011-08-19
帖子: 114

Re: 常用脚本

:em70


我基本算是个eva控了。。。

离线

#6 2011-08-20 17:06:27

Iamme
会员
所在地: the Earth
注册时间: 2011-08-20
帖子: 16
个人网站

Re: 常用脚本

:em70 有空看看。


苏东坡问佛印道:“人人皆念观世音菩萨,观世音菩萨念谁?”
佛印答道:“念观世音菩萨。”
苏东坡诧异:“为何亦念观世音菩萨?”
曰:“求人不如求己。”
话不多说了,提问前先搜索
一起增加dropbox空间
誰好奇,誰來點
勞碌一生又如何,虛度一生又如何,你過得開心嗎?人活著就要開心嘛!

离线

#7 2011-08-20 18:40:13

River
会员
注册时间: 2011-08-20
帖子: 62

Re: 常用脚本

:em70

离线

#8 2011-08-20 22:17:31

lainme
论坛版主
注册时间: 2011-08-19
帖子: 131

Re: 常用脚本

神码来了  :em70

离线

#9 2011-08-27 16:56:57

tusooa
论坛版主
注册时间: 2011-08-21
帖子: 137
个人网站

Re: 常用脚本

来这里 :em70 下。

离线

#10 2011-08-28 11:19:16

hceasy
论坛版主
所在地: @earth
注册时间: 2011-08-27
帖子: 67
个人网站

Re: 常用脚本

这些都是自己写的??? :em23


WARNING:   纯引用、纯表情、纯翻页、空白,四类请勿跟帖。谢谢!
hceasy.com

离线

#11 2011-08-28 18:35:26

YeLee
BOT
注册时间: 2011-08-19
帖子: 661

Re: 常用脚本

不清楚用来干什么的 :em20  :em20  :em20


小白路过,大家给点面子!

离线

#12 2011-08-28 21:42:56

jtshs256
论坛版主
注册时间: 2011-08-19
帖子: 294

Re: 常用脚本

:em70

离线

#13 2011-08-30 09:37:30

QUO1991
GUNDAM
注册时间: 2011-08-26
帖子: 82
个人网站

Re: 常用脚本

神的天书。。。 :em70

离线

#14 2011-12-22 17:36:08

Zypeh
会员
注册时间: 2011-12-17
帖子: 19

Re: 常用脚本

:em70 我是来膜拜的

离线

#15 2011-12-23 11:42:26

YeLee
BOT
注册时间: 2011-08-19
帖子: 661

Re: 常用脚本

:em04  :em04  :em04 正是因为码盲多,神才能够存在。


小白路过,大家给点面子!

离线

页脚