Yasunari Ishibashi

August 22, 2014

bump... /help

June 7, 2014

rathena latest version after the update I am experiencing an error as in the picture.

the password is correct and has been trying to change but still error, if anyone could help? thnks.

June 5, 2014

I also experienced the same thing /hmm

June 4, 2014

BUMP

May 14, 2014

Please screenshot the whole error. The picture shows error but it is incomplete.

only parts of it are in error.

May 14, 2014

error picture below, fix please /thx

// ====================================================
// 5 Man Free for All
// v3.0: With custom queueing system, respawn points (Knx)
// v1.0: Coded by Teny + Knx
// ====================================================
 
// Flags
 
guild_vs1-2.gat mapflag noteleport
guild_vs1-2.gat mapflag nosave SavePoint
guild_vs1-2.gat mapflag nobranch
guild_vs1-2.gat mapflag nopenalty
guild_vs1-2.gat mapflag nomemo
guild_vs1-2.gat mapflag nowarp
guild_vs1-2.gat mapflag nowarpto
guild_vs1-2.gat mapflag noicewall
guild_vs1-2.gat mapflag noreturn
guild_vs1-2.gat mapflag pvp_noparty
guild_vs1-2.gat mapflag pvp_noguild
guild_vs1-2.gat mapflag restricted 3
guild_vs1-2.gat mapflag loadevent
 
guild_vs1-3.gat mapflag noteleport
guild_vs1-3.gat mapflag nosave SavePoint
guild_vs1-3.gat mapflag nobranch
guild_vs1-3.gat mapflag nopenalty
guild_vs1-3.gat mapflag nomemo
guild_vs1-3.gat mapflag nowarp
guild_vs1-3.gat mapflag nowarpto
guild_vs1-3.gat mapflag noicewall
guild_vs1-3.gat mapflag noreturn
guild_vs1-3.gat mapflag pvp_noparty
guild_vs1-3.gat mapflag pvp_noguild
guild_vs1-3.gat mapflag restricted 3
guild_vs1-3.gat mapflag loadevent
 
guild_vs1-4.gat mapflag noteleport
guild_vs1-4.gat mapflag nosave SavePoint
guild_vs1-4.gat mapflag nobranch
guild_vs1-4.gat mapflag nopenalty
guild_vs1-4.gat mapflag nomemo
guild_vs1-4.gat mapflag nowarp
guild_vs1-4.gat mapflag nowarpto
guild_vs1-4.gat mapflag noicewall
guild_vs1-4.gat mapflag noreturn
guild_vs1-4.gat mapflag pvp_noparty
guild_vs1-4.gat mapflag pvp_noguild
guild_vs1-4.gat mapflag restricted 3
guild_vs1-4.gat mapflag loadevent
 
lhz_cube.gat mapflag noteleport
lhz_cube.gat mapflag nosave SavePoint
lhz_cube.gat mapflag nobranch
lhz_cube.gat mapflag nopenalty
lhz_cube.gat mapflag nomemo
lhz_cube.gat mapflag nowarp
lhz_cube.gat mapflag nowarpto
lhz_cube.gat mapflag noicewall
lhz_cube.gat mapflag noreturn
lhz_cube.gat mapflag nopvp
 
 
//-------------------------------------------------------------------------
//
// Register NPC
//
//-------------------------------------------------------------------------
 
arena_room,97,100,5 script 5ManFreeForAll#reg 823,{
 
mes "[Arena Guide]";
mes "Welcome to the Five Man Free For All!!!";
next;
mes "[Arena Guide]";
mes "Would you like to compete?";
next;
menu "Lets do it!",L_Yes, "Uhh. No thanks", L_No;
close;
 
L_Yes:
if (BaseLevel < 250 || Class==Job_Novice || Class==Job_Baby || Class==Job_Novice_High){
goto L_Level;
}else{
if(@ra_map$ != "ra_in01") {//Honor, house system
if($@antibot_active==0) {//Honor, activate with @quest
if(callfunc("botcheck")==0){//Jason
close;
}
}
}
set .@pos, arena_queue_add(1);
 
mes "[Arena Guide]";
if(.@pos==0){
mes "The queue is full. Please wait a while and try again.";
}else if(.@pos==-1){
mes "You already are on a waiting line...";
}else if(.@pos==5){
getmapxy(@FMANFFA_city$, @FMANFFA_x, @FMANFFA_y, 0);
if($@FMANFFA1_running==0){
set $@FMANFFA1_running, 1;
donpcevent "FIVEMANFFA_WINR::OnStart1";
}else if($@FMANFFA2_running==0){
set $@FMANFFA2_running, 1;
donpcevent "FIVEMANFFA_WINR::OnStart2";
}else if($@FMANFFA3_running==0){
set $@FMANFFA3_running, 1;
donpcevent "FIVEMANFFA_WINR::OnStart3";
}else{
set @FMANFFA_active,1;
mes "Congratulations, you are now on the waiting line for 5mFFA!";
mes "Your position is: ^FF0000"+(.@pos-1)+"^000000";
next;
mes "[Arena Guide]";
mes "^0000FFWhen it's your turn, you will be taken to the Arena even if you moved away from this map!";
mes "^FF0000But if you logout, you will be put out of the queue.";
}
}else{
getmapxy(@FMANFFA_city$, @FMANFFA_x, @FMANFFA_y, 0);
set @FMANFFA_active,1;
mes "Congratulations, you are now on the waiting line for 5mFFA!";
mes "Your position is: ^FF0000"+(.@pos-1)+"^000000";
next;
mes "[Arena Guide]";
mes "^0000FFWhen it's your turn, you will be taken to the Arena even if you moved away from this map!";
mes "^FF0000But if you logout, you will be put out of the queue.";
}
 
}
close;
 
L_No:
mes "[Arena Guide]";
mes "Okay, please come again!";
close;
 
L_Level:
mes "[Arena Guide]";
mes "Sorry, you need to be at least level 250. No Novices allowed either.";
close;
 
}
 
izlude,118,117,5 duplicate(5ManFreeForAll#reg) 5ManFreeForAll#reg2 823
payon, 153,233,5 duplicate(5ManFreeForAll#reg) 5ManFreeForAll#reg3 823
ra_in01,326,299,4 duplicate(5ManFreeForAll#reg) 5ManFreeForAll#reg4 823
 
 
//-------------------------------------------------------------------------
//
// ARENA 1
//
//-------------------------------------------------------------------------
 
guild_vs1-2.gat,0,0,0 script FIVEMANFFA_TIMR1 823,{
 
end;
 
//4 minutes
OnTimer240000:
mapannounce "guild_vs1-2.gat", "Everyone, you have one minute to finish this fight!!", 1;
end;
 
//4.75 minutes
OnTimer285000:
mapannounce "guild_vs1-2.gat", "Attention! The round is over in 15 seconds!!", 1;
end;
 
//5 minutes - Time's up (no winner)
OnTimer300000:
stopnpctimer;
stopnpctimer "FFATimer1";
mapwarp "guild_vs1-2.gat","prontera",156,173;
sleep 5000;
mapannounce "arena_room", "The 5 man free-for-all fight just ended without a winner!! :(", 1;
sleep 10000;
donpcevent "FIVEMANFFA_WINR::OnStart1";
end;
 
}
 
guild_vs1-2.gat,1,1,1 script FFATimer1 -1,{
 
end;
 
OnTimer12001:
if (getmapusers("guild_vs1-2.gat") == 0 ) goto L_NoWinner;
if(getmapusers("guild_vs1-2.gat") == 1 ){
stopnpctimer "FIVEMANFFA_TIMR1";
stopnpctimer;
goto L_Win;
}
initnpctimer;
end;
 
L_Win:
mapwarp "guild_vs1-2","lhz_cube",65,193;
sleep 10000;
donpcevent "FIVEMANFFA_WINR::OnStart1";
end;
 
L_NoWinner:
stopnpctimer "FIVEMANFFA_TIMR1";
stopnpctimer;
mapannounce "arena_room", "The 5 man free-for-all fight just ended without a winner!! :(", 1;
sleep 10000;
mapwarp "guild_vs1-2.gat","prontera",156,173;
donpcevent "FIVEMANFFA_WINR::OnStart1";
end;
}
 
 
//-------------------------------------------------------------------------
//
// ARENA 2
//
//-------------------------------------------------------------------------
 
guild_vs1-3.gat,0,0,0 script FIVEMANFFA_TIMR2 823,{
 
end;
 
//4 minutes
OnTimer240000:
mapannounce "guild_vs1-3.gat", "Everyone, you have one minute to finish this fight!!", 1;
end;
 
//4.75 minutes
OnTimer285000:
mapannounce "guild_vs1-3.gat", "Attention! The round is over in 15 seconds!!", 1;
end;
 
//5 minutes - Time's up (no winner)
OnTimer300000:
stopnpctimer;
stopnpctimer "FFATimer2";
mapwarp "guild_vs1-3.gat","prontera",156,173;
sleep 5000;
mapannounce "arena_room", "The 5 man free-for-all fight just ended without a winner!! :(", 1;
sleep 10000;
donpcevent "FIVEMANFFA_WINR::OnStart2";
end;
 
}
 
guild_vs1-3.gat,1,1,1 script FFATimer2 -1,{
 
end;
 
OnTimer12001:
if (getmapusers("guild_vs1-3.gat") == 0 ) goto L_NoWinner;
if(getmapusers("guild_vs1-3.gat") == 1 ){
stopnpctimer "FIVEMANFFA_TIMR2";
stopnpctimer;
goto L_Win;
}
initnpctimer;
end;
 
L_Win:
mapwarp "guild_vs1-3","lhz_cube",65,193;
sleep 10000;
donpcevent "FIVEMANFFA_WINR::OnStart2";
end;
 
L_NoWinner:
stopnpctimer "FIVEMANFFA_TIMR2";
stopnpctimer;
mapannounce "arena_room", "The 5 man free-for-all fight just ended without a winner!! :(", 1;
sleep 10000;
mapwarp "guild_vs1-3.gat","prontera",156,173;
donpcevent "FIVEMANFFA_WINR::OnStart2";
end;
}
 
 
//-------------------------------------------------------------------------
//
// ARENA 3
//
//-------------------------------------------------------------------------
 
guild_vs1-4.gat,0,0,0 script FIVEMANFFA_TIMR3 823,{
 
end;
 
//4 minutes
OnTimer240000:
mapannounce "guild_vs1-4.gat", "Everyone, you have one minute to finish this fight!!", 1;
end;
 
//4.75 minutes
OnTimer285000:
mapannounce "guild_vs1-4.gat", "Attention! The round is over in 15 seconds!!", 1;
end;
 
//5 minutes - Time's up (no winner)
OnTimer300000:
stopnpctimer;
stopnpctimer "FFATimer3";
mapwarp "guild_vs1-4.gat","prontera",156,173;
sleep 5000;
mapannounce "arena_room", "The 5 man free-for-all fight just ended without a winner!! :(", 1;
sleep 10000;
donpcevent "FIVEMANFFA_WINR::OnStart3";
end;
 
}
 
guild_vs1-4.gat,1,1,1 script FFATimer3 -1,{
 
end;
 
OnTimer12001:
if (getmapusers("guild_vs1-4.gat") == 0 ) goto L_NoWinner;
if(getmapusers("guild_vs1-4.gat") == 1 ){
stopnpctimer "FIVEMANFFA_TIMR3";
stopnpctimer;
goto L_Win;
}
initnpctimer;
end;
 
L_Win:
mapwarp "guild_vs1-4","lhz_cube",65,193;
sleep 10000;
donpcevent "FIVEMANFFA_WINR::OnStart3";
end;
 
L_NoWinner:
stopnpctimer "FIVEMANFFA_TIMR3";
stopnpctimer;
mapannounce "arena_room", "The 5 man free-for-all fight just ended without a winner!! :(", 1;
sleep 10000;
mapwarp "guild_vs1-4.gat","prontera",156,173;
donpcevent "FIVEMANFFA_WINR::OnStart3";
end;
}
 
 
//-------------------------------------------------------------------------
//
// GAME NPC
//
//-------------------------------------------------------------------------
 
guild_vs1-2.gat,1,1,1 script FIVEMANFFA_WINR -1,{
 
end;
 
OnInit:
mapwarp "guild_vs1-2.gat","prontera",156,173;
mapwarp "guild_vs1-3.gat","prontera",156,173;
mapwarp "guild_vs1-4.gat","prontera",156,173;
 
set $@FMANFFA1_running, 1;
set $@FMANFFA2_running, 1;
set $@FMANFFA3_running, 1;
 
donpcevent "FIVEMANFFA_WINR::OnStart1";
donpcevent "FIVEMANFFA_WINR::OnStart2";
donpcevent "FIVEMANFFA_WINR::OnStart3";
 
end;
 
OnStart1:
if(warp_arena_queue(1,0,"guild_vs1-2",0,0,5) > 0){
set $@FMANFFA1_running, 1;
initnpctimer "FIVEMANFFA_TIMR1";
initnpctimer "FFATimer1";
}else{
set $@FMANFFA1_running, 0;
}
end;
 
OnStart2:
if(warp_arena_queue(1,0,"guild_vs1-3",0,0,5) > 0){
set $@FMANFFA2_running, 1;
initnpctimer "FIVEMANFFA_TIMR2";
initnpctimer "FFATimer2";
}else{
set $@FMANFFA2_running, 0;
}
end;
 
OnStart3:
if(warp_arena_queue(1,0,"guild_vs1-4",0,0,5) > 0){
set $@FMANFFA3_running, 1;
initnpctimer "FIVEMANFFA_TIMR3";
initnpctimer "FFATimer3";
}else{
set $@FMANFFA3_running, 0;
}
end;
 
OnPCLoadMapEvent: //will run on 3vs3 and CTF as well
sc_end SC_ALL;
alive;
end;
 
OnPCLogoutEvent:
if(@FMANFFA_active==1)
arena_queue_del(1);
end;
 
OnPCDieEvent:
getmapxy(.@mapname$, .@mapx, .@mapy, 0);
if(.@mapname$=="guild_vs1-2" || .@mapname$=="guild_vs1-3" || .@mapname$=="guild_vs1-4"){
set @FMANFFA_active, 0;
if(@FMANFFA_x) warp @FMANFFA_city$,@FMANFFA_x,@FMANFFA_y;
else warp "prontera",156,173;
set @FMANFFA_city$, 0; set @FMANFFA_x, 0; set @FMANFFA_y, 0;
sleep2 1000;
alive;
}
end;
 
}
 
 
//
// Prize NPC
//
 
lhz_cube.gat,67,193,3 script winnerPrize#5m 818,2,2,{
 
sc_end SC_ALL;
 
if(strcharinfo(0)!=""){
mapannounce "arena_room", "And the winner for this 5 man free-for-all fight is: "+strcharinfo(0)+"!!", 1;
}
 
mes "[Winner Prize]";
mes "Congratulations, you're the winner! Here's your prize ~ ";
next;
getitem 22555,1;
percentheal 100,100;
if(@FMANFFA_x) warp @FMANFFA_city$,@FMANFFA_x,@FMANFFA_y;
else warp "prontera",156,173;
set @FMANFFA_city$, 0; set @FMANFFA_x, 0; set @FMANFFA_y, 0;
end;
 
}

May 2, 2014

I want to add the countdown dispbottom to the script below,

time to answer 5 minutes if not answered auto kick.

every 1 minute it will appear a message on dispbottom

when the answer occurring disconnect character auto goto jail.

Please help,thanks. /thx

prontera,0,0,0    script    BOT    -1,{ // Main Script

    function GetString;



//Untuk setting map tertentu

//OnInit:

//OnPCLoadMapEvent:

//if( !Checking ) end;



OnNPCKillEvent:

//    if(getgmlevel() > 0) end;

    set @kill,@kill+1;

    if(@kill >= rand(200,400)){

    cutin "ein_soldier",2;

    if(checkcart() == 1) set @cart,1;

    if(checkfalcon() == 1) set @falcon,1;

    if(checkriding() == 1) set @riding,1;

    attachnpctimer strcharinfo(0);

    initnpctimer;

    sc_start sc_berserk, 1000000000, 1;

    sc_start sc_freeze, 1000000000, 1;

    atcommand "@option 2 0 3";

    set Checking,1;

    switch( rand(2) ){

    Case 0:

    set .@String$,GetString( 15,rand(5,10) );

    mes "[^FF0000SundanesPolice^000000]";

    mes "Input the ^FF0000RED COLOUR^000000 part";

    mes "^0000FF"+GetString( 15,rand(5,10) )+"^FF0000"+.@String$+"^0000FF"+GetString( 15,rand(3,10) )+"^000000";

    input .@Input$;

    if( .@Input$ == .@String$ ){

    next;

    mes "[^FF0000Sundanes Police^000000]";

    mes "You Already Pass The Bot Check, Have A Fun Game !";

    mes "In You Found The Bot Please Report At: ^0000FFSundanes.ra9narok.web.id^000000";

    } else {

    if (BotDetected == 5) {

        mes "[^FF0000SundanesPolice^000000]";

        mes "You account have been banned for 6 years.";

        announce "[Sundanes Police]: The user [" +strcharinfo(0) +"] have been banned because of using bots.",0;

        atcommand "@ban +6y "+strcharinfo(0); // Banned 6 years

        atcommand "@kick "+strcharinfo(0);

    } else {

        set BotDetected, BotDetected + 1;

        mes "[^FF0000Sundanes Police^000000]";

        mes "You Are Not Pass The Bot Check!!if Over 5 Time Not Pass You Account Will Ban Forever!~";

        next;

        atcommand "@kick "+strcharinfo(0);

    } // End if

    end;

} // End if

    cutin "ein_soldier",255;

    atcommand "@option 0";

    stopnpctimer;

    detachnpctimer;

    sc_end sc_berserk;

    sc_end sc_freeze;

    percentheal 100,100;

    set BotDetected,0;

    set @kill,0;

    set Checking,0;

    if(@cart == 1) {

        setcart;

        set @cart,0;

    }

    if(@falcon == 1) {

        setfalcon;

        set @falcon,0;

    }

    if(@riding == 1) {

        setriding;

        set @riding,0;

    }

close;

end;

break;



    Case 1:

    set .@A,rand(100);

    set .@B,rand(100);

    mes "If A = "+.@A+" B = "+.@B;

    switch( rand(4) ){

    Case 0:

    set .@Answer,.@A + .@B;

    mes "How many is A + B ?";

    break;

    Case 1:

    set .@Answer,.@A - .@B;

    mes "How many is A - B ?";

    break;

    Case 2:

    set .@Answer,.@A * .@B;

    mes "How many is A * B ?";

    break;

    Case 3:

    set .@Answer,.@A / .@B;

    mes "How many is A / B ?";

    break;

    }

    input .@Input;

    if( .@Input == .@Answer ){

    next;

    mes "[^FF0000Sundanes Police^000000]";

    mes "You Already Pass The Bot Check, Have A Fun Game !";

    mes "In You Found The Bot Please Report At: ^0000FFSundanes.ra9narok.web.id^000000";

    } else {

    if (BotDetected == 5) {

        mes "[^FF0000SundanesPolice^000000]";

        mes "You account have been banned for 6 years.";

        announce "[Sundanes Police]: The user [" +strcharinfo(0) +"] have been banned because of using bots.",0;

        atcommand "@ban +6y "+strcharinfo(0); // Banned 6 years

        atcommand "@kick "+strcharinfo(0);

    } else {

        set BotDetected, BotDetected + 1;

        mes "[^FF0000Sundanes Police^000000]";

        mes "You Are Not Pass The Bot Check!!if Over 5 Time Not Pass You Account Will Ban Forever!~";

        next;

        atcommand "@kick "+strcharinfo(0);

    } // End if

    end;

} // End if

    cutin "ein_soldier",255;

    atcommand "@option 0";

    stopnpctimer;

    detachnpctimer;

    sc_end sc_berserk;

    sc_end sc_freeze;

    percentheal 100,100;

    set BotDetected,0;

    set Checking,0;

    set @kill,0;

    if(@cart == 1) {

        setcart;

        set @cart,0;

    }

    if(@falcon == 1) {

        setfalcon;

        set @falcon,0;

    }

    if(@riding == 1) {

        setriding;

        set @riding,0;

    }

close;

end;

break;

     

function    GetString    {

    if( getarg(0) & 1 ) setarray .@List$[ getarraysize( .@List$ ) ],"1","2","3","4","5","6","7","8","9";

    if( getarg(0) & 2 ) setarray .@List$[ getarraysize( .@List$ ) ],"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z";

    if( getarg(0) & 4 ) setarray .@List$[ getarraysize( .@List$ ) ],"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z";

    if( getarg(0) & 8 ) setarray .@List$[ getarraysize( .@List$ ) ],"!","@","#","$","%","^","&","*","(",")","-","=","/","+";

     

    set .@Str$,"";

    while( getstrlen( .@Str$ ) < getarg(1) )

    set .@Str$,.@Str$ + .@List$[ rand( getarraysize( .@List$ ) ) ];

    return .@Str$;

            }     

        }     

    }

}



//Setting Map tertentu

//bat_c01    mapflag    loadevent

BUMP

March 26, 2014

i think is cant format it again to normal text , if you wanna convert it one by one you can find converter in google

why you convert it to normal text ? it not save for database

buset, convert it one by one /oops

because there is an error friend change password immediately so that the database can not login again

the easiest way would mean just change the login_athena file as the instructions given by sandbox,

then change the manual password database? rather than convert one by one on google /ic

can it be that way before the execution? /hmm

March 25, 2014

login_athena.conf

// Store passwords as MD5 hashes instead of plain text?

// NOTE: Will not work with clients that use <passwordencrypt>

use_MD5_passwords: no

A way to return db passwords md5 login id?

He was only following a way that you give?

Thnks

convert in database ? or change in register for the new id ?

convert in database mas gan biar langsung kembali semula /heh

change in regiter for new id -> follow the instructions of the sandbox after returning to normal right? /hmm

March 25, 2014

login_athena.conf

// Store passwords as MD5 hashes instead of plain text?

// NOTE: Will not work with clients that use <passwordencrypt>

use_MD5_passwords: no

A way to return db passwords md5 login id?

He was only following a way that you give?

Thnks

March 25, 2014

If anyone could help convert database md5 passwords to normal?

Thnks.

April 25, 2013

April 24, 2013

what if be set between 300-500 per kill random monsters running script, please help.

sorry if my english bad, may know what I mean. /thx

April 20, 2013

please change my script,

be for 30 minutes randomly appear AntiBot, thnks /thx

antibot.txt

April 2, 2013

March 31, 2013

March 25, 2013

look at the picture below, how to fix it?
please help me, thnks

March 25, 2013

you mean these setting ?

trunk/conf/battle/status.conf

// Adjustment for the natural rate of resistance from status changes.
// If 50, status defense is halved, and you need twice as much stats to block
// them (eg: 200 vit to completely block stun)
pc_status_def_rate: 100

I have tried, but with a 300 status still frozen.

sorry my bad english language support, may be understandable.

March 23, 2013

how your way to the status luk 300 can not be frozen?
please help, thank you.

March 21, 2013

how to change the word that I gave the red column?

its located on your msgstringtable. Base from that screenshot its mine. So yeah its from msgstringtable.

please share msgstringtable, thnks

March 21, 2013

how to change the word that I gave the red column?

On your msgstringtable. In default you don't have anything unless you have the translated msgstringtable..

please share msgstringtable, thnks

March 20, 2013

how to change the word that I gave the red column?

March 20, 2013

how to change the word that I gave the red column?

March 11, 2013

please look the some error below :

clif.c: In function âclif_spawnâ:
clif.c:1366: error: âOPTION_MOUNTINGâ undeclared (first use in this function)
clif.c:1366: error: (Each undeclared identifier is reported only once
clif.c:1366: error: for each function it appears in.)
clif.c: In function âclif_changelookâ:
clif.c:3059: error: âLOOK_FLOORâ undeclared (first use in this function)
clif.c: In function âclif_getareachar_pcâ:
clif.c:4050: error: âOPTION_MOUNTINGâ undeclared (first use in this function)
clif.c:17162:2: warning: no newline at end of file
make[1]: *** [obj_sql/clif.o] Error 1
make[1]: Leaving directory `/home/admin/trunk/src/map'
make: *** [map_sql] Error 2

can you help me with these error i got?

March 9, 2013

I want to ask i use the patcher but the file is not locked
after i tried to open GRF file patcher is not locked, secure GRF is it weakness?

I tried using secure GRF in patcher file but the file is corrupt and unreadable.

is there a solution? sorry my bad english

Sign In

Profiles

Forums

Downloads

Jobs Available

Server Database

Third-Party Services

Top Guides

Store

Crowdfunding

Posts posted by Yasunari Ishibashi