2nd-player

#!/usr/bin/perl
# (C) 2nd-player
# this script is licensed under CC BY-NC-SA 2.1 JP
# https://creativecommons.org/licenses/by-nc-sa/2.1/jp/

use utf8;
use strict;
use Encode qw/encode decode/;

BEGIN{ 

2nd-player

#######################################################################
# recaptcha.inc.pl - This is PyukiWiki, yet another Wiki clone.
#
# "PyukiWiki" ver 0.2.0-p3+ Modified by 2P@ポケモンWiki
# Author: Nanami http://nanakochi.daiba.cx/
# Copyright (C) 2004-2012 Nekyo
# http://nekyo.qp.land.to/
# Copyright (C) 2005-2012 PyukiWiki Developers Team
# http://pyukiwiki.sfjp.jp/
# Based on YukiWiki http://www.hyuki.com/yukiwiki/

2nd-player

#!/usr/local/bin/vim -S
"(C) 2nd-player
" this script is licensed under CC BY-NC-SA 2.1 JP
" https://creativecommons.org/licenses/by-nc-sa/2.1/jp/

"180902 auto bolder
"180902 illus
let s:dexfile = getcwd()."/data/dex-jedf.txt"
function! Cardmkr()
let s:keepmouse = &mouse

2nd-player

#!/usr/bin/perl
# (C) 2nd-player
# this script is licensed under CC BY-NC-SA 2.1 JP
# https://creativecommons.org/licenses/by-nc-sa/2.1/jp/
use utf8;
use Encode qw/encode decode/;
use 5.8.8;
use integer;# I think there is no need to handle float

use Socket;#required in HTTPpost()

2nd-player

#!/usr/local/bin/perl
use strict;
use integer;
#== SharpBoyのログからエンカウント後の乱数の動きを抽出するスクリプト ==
#制作: 2P@ポケモンWiki

my @tmp;
my @hRandomAdd;
my @dDiv;
my @Cy;

2nd-player

<?php
/*

 Defines a subset of parser functions that must clear the cache to be useful.

 {{#arg:name}} Returns the value of the given URL argument.  Can also be called
               with a default value, which is returned if the given argument is
               undefined or blank: {{#arg:name|default}}

 {{#ip:}}      Returns the current user IP.

2nd-player

<?php
if ( !defined( 'MEDIAWIKI' ) ) {
  die( 'This file is a MediaWiki extension, it is not a valid entry point' );
}
# pwLatin1 MediaWiki Extension
# version 0.0.0a
# 2018 (c) Copyright 2nd-player
# ポケモンWiki 拡張機能案
#
# 記事名が拡張ラテン文字を含むとき、ASCIIに転写したDISPLAYTITLEを設定する. そして山札を切る.

2nd-player

1,2g/[^0-9]/s///g
1,2g/^00*/s///g
1s/$/!/
2s/$/__/
1,2s/\(.\)/\1\
/g
1t0
1d
1,/_/g/^ *$/d
1,/_/g/^/m0

2nd-player

<?php /*> if 0;#perl
#this script is executable under either interpreter of PHP and Perl.
#
#Author: 2nd-player
#https://wiki.xn--rckteqa2e.com/
use strict;
my $lang = 'Perl';
my @in;
my $i;
my @label=('x','y');

2nd-player

#!/usr/local/bin/vim -S
" File:         readwiki.vim
" Author:       2nd-player
" Date:         Feb 23, 2017
" Copyright:    Copyright (C) 2017 2nd-player
"
" This work is currently licensed under the terms of CC BY-NC-SA 2.1 JP.
" https://creativecommons.org/licenses/by-nc-sa/2.1/jp/
" 
"== Requirements ==