pojiejapan

February 19, 2015

can i get the link for your website?

February 19, 2015

can u elaborate more? does the whole page is not visible? because from your error it seems that it has problem echo'ing the file.

i think that the sidebar_left.php does not contain closing bracket for the php tag. try put the ?> at the bottom. so the whole html is a php.

when the code does not end with ?> php tag then it is considered as a html.

August 3, 2012

Hello all Rathenia's

I was wondering is there any Offline Ragnarok Online that I can download (that is using the latest client, not txt base) so I can test my scripting, and setting in the server before renting a server host? Because I don't want to waste my money paying the rent just for testing and adjusting the script.

I really hope there's a solution.

Thanks in regards.

March 2, 2012

yep would love to see what male style hair look like /ok

March 2, 2012

hello im using 3CeaM, so does this mean that there will no more update of 3CeaM?. So 3CeaM will be over?

February 29, 2012

Hello I'm installing new Disguise NPC Event. But got this error. Can help me?

script error on npc/custom/disguise.txt line 242
Unexpected newline at string.
  237 :				setnpctimer 0;
  238 :				deletepset 1;
  239 :				set .DisguiseWon, 1;
  240 :				set $DisguiseRound, $DisguiseRound + 1;
  241 :				npctalk " "+strcharinfo(0)+" " got my right name!";
*  242 :				sleep2 3000;
  243 :				npctalk $MonsterName$ + " is the correct answer.";
  244 :				sleep2 3000;
  245 :				npctalk "Take this as a reward.";
  246 :				getitem $guessprize, $guessprizecount;
  247 :				if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;}
[info]: npc_parse_function: Overwriting user function [WoEToggler] (npc/custom/woetoasty.txt:538)

This is the full script.

/*//----------------------------------------------------------------//
//----------------Scripted by Spera---------------------------------//
//------------------FinalStrikeRO-----------------------------------//
//--------------------Disguise Event NPC v2-------------------------//
/-------------------------------------------------------------------//*/

gonryun,170,91,4 script Disguise CP  968,{
if (getgmlevel()<50)
{
mes "^3399FF[Disguise CP]^000000";
mes "Sorry, you are not a GM!";
close;
}
mes "^3399FF[Disguise CP]^000000";
mes "Hello GameMaster!";
mes "What do you want to do?";
switch(select("Start Event:Stop Event:Set number of rounds[^E50000"+$guessrounds+"^000000]:Set prize^E50000 ["+getitemname($guessprize)+"]^000000 ^E50000 ["+ $guessprizecount + "]^000000:Nothing"))
{
case 1:
{
 next;
 mes "^3399FF[Disguise CP]^000000";
 mes "Please confirm by typing START.";
 input .@confirm$;		
 if (.@confirm$ == "START")
 {
  donpcevent "guessAnnouncer::OnGMStart";
  close;
 }
 mes "Confirmation failed";
 close;
 break;
}
case 2:
{
 next;
 mes "^3399FF[Disguise CP]^000000";
 mes "Please confirm by typing STOP.";
 input .@confirm$;		
 if (.@confirm$ == "STOP")
 {
  donpcevent "guessAnnouncer::OnGMStop";
  close;
 }
 mes "Confirmation failed";
 close;
 break;

}

case 3:
{
 next; mes "^3399FF[Disguise CP]^000000";
 mes "Please type in the new number.";
 input $guessrounds;
 if ($guessrounds > 30) set $guessrounds, 30;
 else if ($guessrounds < 1) set $guessrounds, 1;
 close;
}

case 4:
{
 next; mes "^3399FF[Disguise CP]^000000";
 mes "Please type in the new prize id.";
 input .@guessprizeid;
 if (getitemname(.@guessprizeid) == "null" || getitemname(.@guessprizeid) == "") {next; mes "^3399FF[Disguise CP]^000000";
 mes "Error";
 mes "This item does not exist in the database..."; close;}
 set $guessprize, .@guessprizeid;
 next; mes "^3399FF[Disguise CP]^000000";
 mes "Please type in the amount.";
 input .@guessprizeamount;
 if (!.@guessprizeamount) set .@guessprizeamount,1 ;
 set $guessprizecount,.@guessprizeamount;
 next; mes "^3399FF[Disguise CP]^000000";
 mes "Prize has been set to ^E50000 "+ getitemname($guessprize)+ "^000000 and the amount to ^E50000 " +$guessprizecount+"^000000";
 close;
}


case 5:
{
 next; mes "^3399FF[Disguise CP]^000000";
 mes "Good bye";
 close;
}
}

}

quiz_02,349,387,4 script Disguise NPC  794,{
if (!$guessbegin)
{
mes "^3399FF[Disguise NPC]^000000";
mes "The event is going to start soon!";
close;
}
end;
OnStart:
set $guessbegin, 1;
set .DisguiseWon, 0;
if (!$DisguiseRound)
{
 npctalk "Alright. Let's get it over with ~.~ ";
 sleep 4000;
 npctalk "But first I will explain to you how to play the game.";
 sleep 6000;
 npctalk "I am going to disguise into a random monster.";
 sleep 5000;
 npctalk "You have to guess the monster's name and shout it out.";
 sleep 5000;
 npctalk "Don't bother about the use of capital and small initial letters.";
 sleep 8000;
 npctalk "Now get ready.";
 sleep 5000;
}
else if ($DisguiseRound < $guessrounds-1)
{
 npctalk "Get ready for the next round.";
 setnpctimer 0;
 sleep 8000;
}
else
{
 npctalk "Last round now!";
 sleep 2000;
 npctalk "Get ready.";
 sleep 6000;
}
do
{
 set .@guessrepeat, 0;
 set $monster, 1000 + rand(1,950);
 for (set .@k, 0; .@k <getarraysize($Forbidden); set .@k, .@k+1)
 {
  if ($monster == $Forbidden[.@k])
  {
set .@guessrepeat, 1;
break;
  }
 }
}
while (.@guessrepeat);
setnpctimer 0;
initnpctimer;
setnpcdisplay "Disguise NPC",$monster;
set $MonsterName$, strmobinfo(1,$monster);
defpattern 1, "([^:]+):.*\\s"+$MonsterName$+"(.*)", "winround";
activatepset 1;
npctalk "What's my name?";
sleep 3000;
npcwalkto 102,103;
sleep 2000;
npcwalkto 102,99;
end;

OnTimer10000:
 if (!.DisguiseWon)
 {
  npctalk "Come on. What monster am I?";
  sleep 3000;
  npcwalkto 102,103;
  sleep 2000;
  npcwalkto 102,99;
  if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;}
 }
 end;

OnTimer25000:
 if (!.DisguiseWon)
 {
  npctalk "Nobody knows that monster?";
  sleep 3000;
  npcwalkto 102,103;
  sleep 2000;
  npcwalkto 102,99;
 }
 end;
OnTimer35000:
 if (!.DisguiseWon)
 {
  npctalk "You get 10 more seconds to guess my name.";
  sleep 3000;
  npcwalkto 102,103;
  sleep 2000;
  npcwalkto 102,99;
 }
 end;
OnTimer45000:
 if (!.DisguiseWon)
 {
  npctalk "Round is over.";
  if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;}
  set $DisguiseRound, $DisguiseRound + 1;
  sleep 3000;
  deletepset 1;
  npctalk $MonsterName$ + " would have been the correct answer.";
  sleep 5000;
  if ($DisguiseRound >= $guessrounds)
  {
set $DisguiseRound, 0;
sleep 3000;
npctalk "Event is over now!";
sleep 3500;
npctalk "See ya guys";
sleep 2000;
emotion 12;
sleep 1000;
set $guessactive, 0;
mapwarp "quiz_02","gonryun",160,121;
setnpcdisplay "Disguise NPC",794;
disablenpc "Disguise NPC";
end;
  }
  goto OnStart;
 }
 end;
winround:
 setnpctimer 0;
 deletepset 1;
 set .DisguiseWon, 1;
 set $DisguiseRound, $DisguiseRound + 1;
 npctalk " "+strcharinfo(0)+" " got my right name!";
 sleep2 3000;
 npctalk $MonsterName$ + " is the correct answer.";
 sleep2 3000;
 npctalk "Take this as a reward.";
 getitem $guessprize, $guessprizecount;
 if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;}
 if ($DisguiseRound >= $guessrounds)
  {
set $DisguiseRound, 0;
set $guessactive, 0;
sleep 3000;
npctalk "Event is over now!";
sleep 3500;
npctalk "See ya guys";
sleep 2000;
emotion 12;
sleep 1000;
mapwarp "poring_c01.gat","que_qsch05.gat",252,341;
setnpcdisplay "Disguise NPC",794;
disablenpc "Disguise NPC";
end;
  }
 sleep 5000;
 goto OnStart;
 end;

}
//-----------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------
- script guessAnnouncer -1,{

OnGMStart:
if ($guessactive) end;
set $guessactive, 1;
announce "A Gamemaster has started the Disguise Event",0;
set $guessbegin, 0;
sleep 3000;
if (!$guessactive) end;
announce "If you want to join, come to Gonryun, head upwards behind the statue and enter the warp portal.",0;
enablenpc "guesswarp";
enablenpc "Disguise NPC";
sleep 3000;
announce "Number of Rounds: "+$guessrounds,0;
sleep 2000;
announce "Prize: "+ getitemname($guessprize) + " x " + $guessprizecount,0;
sleep 2000;
if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;}
announce "The portal is going to close in one minute.",0;
sleep 60000;
if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;}
announce "The portal has been closed.",0;
disablenpc "guesswarp";
set $DisguiseRound, 0;
sleep 5000;
if (!$guessactive) {disablenpc "Disguise NPC"; end;}
if(getmapusers("quiz_02") <= 1)
{
 disablenpc "Disguise NPC";
 set $guessactive, 0;
 end;
}
donpcevent "Disguise NPC::OnStart";
end;
OnGMStop:
 if ($guessactive)
 {
  set $guessactive, 0;
  announce "A Gamemaster has stopped the Disguise Event",0;
  set $DisguiseRound, 0;
  mapwarp "quiz_02","gonryun",160,121;
  setnpcdisplay "Disguise NPC",794;
  disablenpc "Disguise NPC";
  disablenpc "guesswarp";
 }
 end;

OnClock0200:
OnClock0400:
OnClock0600:
OnClock0800:
OnClock1000:
OnClock1200:
OnClock1400:
OnClock1600:
OnClock1800:
OnClock2000:
OnClock2200:
OnClock0000:
if ($guessactive) end;
set $guessactive, 1;
announce "The server is starting a Disguise Event now.",0;
set $guessbegin, 0;
sleep 3000;
if (!$guessactive) end;
announce "If you want to join, come to the main town, head downwards and enter the warp portal.",0;
enablenpc "guesswarp";
enablenpc "Disguise NPC";
sleep 2000;
announce "Prize: "+ getitemname($guessprize) + " x " + $guessprizecount,0;
sleep 2000;
if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;}
announce "The portal is going to close in one minute.",0;
sleep 60000;
if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;}
announce "The portal has been closed.",0;
disablenpc "guesswarp";
sleep 5000;
if (!$guessactive)  {disablenpc "Disguise NPC"; end;}
announce "Next Event will start in 2 hours.",0;
set $DisguiseRound, 0;
if(getmapusers("quiz_02") >= 1)
{
 disablenpc "Disguise NPC";
 set $guessactive, 0;
 end;
}
donpcevent "Disguise NPC::OnStart";
end;
OnInit:
disablenpc "Disguise NPC";
disablenpc "guesswarp";
set $guessactive, 0;
setarray $Forbidden[0],1003,1006,1017,1021,1022,1027,1043,1136,1137,1168,1171,1172,1173,1181,1210,1217,1218,1223,1284,1324,1325,1326,1327,1328,1329,1330,1331,1332,1333,1334,1335,1336,1337,1338,1339,1340,1341,1342,1343,1344,1345,1346,1347,1348,1349,1350,1351,1352,1353,1354,1355,1356,1357,1358,1359,1360,1361,1362,1363,1407,1411,1414,1496,1501,1900;
}
//-----------------------------------------------------------------------------------
//------------------Warp Portal------------------------------------------------------
gonryun,159,143,0 warp guesswarp 2,2,quiz_02,349,365
//-----------------------------------------------------------------------------------
//------------------Map Flags--------------------------------------------------------
poring_c01 mapflag nowarpto
poring_c01 mapflag noskill
poring_c01 mapflag nosave
poring_c01 mapflag nomemo
poring_c01 mapflag noteleport
//-----------------------------------------------------------------------------------

February 27, 2012

Regarding this problem. 1st of all. When I @reloaditemdb it says :

Done reading '26770' entries in 'item_db.txt'.

so it read sucessfully and the ingame items work fine. All effect are taken place.

But when I wanted to changed for example Knife give +20 Str. I've save it and reload the item database. It reload perfectly. But the item effect wont change.

YES! I put the correct script. I Check and Triple check. but the item_db2.txt effect whenever i do any changes.

February 27, 2012

Has anyone try this before?

I've change the script of this thing from

4749,Vitality10,VIT+10,6,20,,10,,,,,,,,16,,,,,{ bonus bVit,10; },{},{}

to

4749,Vitality10,VIT+10,6,20,,10,,,,,,,,16,,,,,{ bonus bInt,99; },{},{}

and yes I've reload the item db. but it seems it does not effect the items.

Does it no related to the script?

February 23, 2012

dont have the map

February 22, 2012

is it compatible with 3CeaM. Some screen shot by Legato say it's compatible. But the argument there saying otherwise. Can someone take a look at this.

February 22, 2012

I hoped someone can help me.

February 22, 2012

is there any src for this commands?

February 22, 2012

Thanks you guys. Fixed it already. The src is compatible with 3CeaM

February 22, 2012

emistry is it compatible with 3CeaM?

February 22, 2012

err. if im not mistaken. you should edit the files at conf.

atcommand_athena.conf

February 22, 2012

Hello, is it possible to create a system like this.

You give an NPC a ticket. Donation ticket and he change your GM Level from 0 to 1 and only for 1 month

and is it possible also to an NPC like this :

You got a ticket - Talk to Kafra - He takes ticket and give you 1k Berry ( straight to player storage )

February 22, 2012

Hello Im using this Jobchanger, how can player change to baby??

L_job_change:
if(Upper == 1 && Class >= Job_Lord_Knight) goto L_noReq;
if(SkillPoint != 0){
 mes .npc$;
 mes "I'm sorry, please use up all your skill points before changing jobs";
 mes "Please come again soon!";
 close;
}
if(JobLevel < 10) goto L_LvError;
switch(Class){
 case Job_Novice_High:
 case Job_Baby:
 case Job_Novice:
  skill 142,1,0;
  skill 143,1,0;
 mes .npc$;
  mes "Welcome, please select the job you wish to change into";
  if(lastJob != 0 && Class == Job_Novice_High){
switch(lastJob){
 case Job_Knight:
 case Job_Crusader:
  set @target_job, Job_Swordman_High;
  break;
 case Job_Monk:
 case Job_Priest:
  set @target_job, Job_Acolyte_High;
  break;
 case Job_Alchemist:
 case Job_Blacksmith:
  set @target_job, Job_Merchant_High;
  break;
 case Job_Rogue:
 case Job_Assassin:
  set @target_job, Job_Thief_High;
  break;
 case Job_Wizard:
 case Job_Sage:
  set @target_job, Job_Mage_High;
  break;
 case Job_Hunter:
 case Job_Bard:
 case Job_Dancer:
  set @target_job, Job_Archer_High;
  break;
}
  } else {
switch(select("Swordsman","Mage","Archer","Acolyte","Merchant","Thief",
 "Super Novice","Taekwon","Gunslinger","Ninja")){
  case 7:
if(Class == Job_Novice_High) goto L_noReq;
if($@JC_SupNovM > BaseLevel) goto L_BvError;
if(Upper == 2)
set @target_job, Job_Super_Baby;
else
set @target_job, Job_SuperNovice;
break;
  case 8:
if(Class == Job_Novice_High) goto L_noReq;
if(Upper == 2) goto L_noReq;
set @target_job, Job_Taekwon;
break;
  case 9:
  case 10:
if(Class == Job_Novice_High || Upper == 2) goto L_noReq;
set @target_job, @menu + 15;
break;
  default:
set @target_job, @menu;
if(Class == Job_Novice_High) set @target_job, @target_job + 4001;
break;
 }
  }
 mes .npc$;
  mes "Are you sure you want to change to " + JobName(@target_job) + "?";
  if(select("No","Yes") == 2){
callfunc "Job_Change", @target_job;
if(@target_job == Job_Gunslinger || @target_job == Job_Ninja || @target_job == Job_Taekwon) {
 callfunc "F_ClearJobVar";
} else {
 if($@JC_Plat) goto L_GivePlat;
}
  }
  close;
  break;
 default:
  if(JobLevel < $@JC_MinimumJB) goto L_LvError;
  deletearray @job_opt, getarraysize(@job_opt);
  if(Class < Job_Knight || Class == Job_Taekwon || (Class > Job_Baby && Class < Job_Baby_Knight) || (Class > Job_Novice_High && Class < Job_Lord_Knight)){
if(lastJob != 0){
 set @target_job, lastJob + 4001;
} else {
 switch(Class){
  case Job_Swordman_High:
  case Job_Baby_Swordman:
  case Job_Swordman:
set @job_opt[0], Job_Knight;
set @job_opt[1], Job_Crusader;
break;
  case Job_Mage_High:
  case Job_Baby_Mage:
  case Job_Mage:
set @job_opt[0], Job_Wizard;
set @job_opt[1], Job_Sage;
break;
  case Job_Archer_High:
  case Job_Baby_Archer:
  case Job_Archer:
set @job_opt[0], Job_Hunter;
if(Sex == 0)
set @job_opt[1], Job_Dancer;
else
set @job_opt[1], Job_Bard;
break;
  case Job_Acolyte_High:
  case Job_Baby_Acolyte:
  case Job_Acolyte:
set @job_opt[0], Job_Priest;
set @job_opt[1], Job_Monk;
break;
  case Job_Merchant_High:
  case Job_Baby_Merchant:
  case Job_Merchant:
set @job_opt[0], Job_Blacksmith;
set @job_opt[1], Job_Alchemist;
break;
  case Job_Thief_High:
  case Job_Baby_Thief:
  case Job_Thief:
set @job_opt[0], Job_Assassin;
set @job_opt[1], Job_Rogue;
break;
  default:
set @job_opt[0], Job_Star_Gladiator;
set @job_opt[1], Job_Soul_Linker;
break;
 }
 mes .npc$;
 mes "Welcome, please select the job you wish to change into";
 set @target_job, @job_opt[select(JobName(@job_opt[0]), JobName(@job_opt[1]))-1];
 if(Class > Job_Novice_High && Class < Job_Lord_Knight) set @target_job, @target_job + 4001;
}
mes .npc$;
 mes "Are you sure you want to change to " + JobName(@target_job) + "?";
if(select("No","Yes")==2){
 callfunc "Job_Change", @target_job;
 if(@target_job == Job_Star_Gladiator || @target_job == Job_Soul_Linker) {
  callfunc "F_ClearJobVar";
 } else {
  if($@JC_Plat) goto L_GivePlat;
 }
}
close;
  }
  if(checkfalcon() || checkcart() || checkriding()) goto L_remove;
  if((Class >=Job_Knight) && (Class <=Job_Crusader2)){
  mes .npc$;
  mes "Do you want to reborn?";
if(select("Yes","No")==1){
 if(BaseLevel < 99 || JobLevel < 50) goto L_cantCh;
 set lastJob, Class;
 if(Class == Job_Knight2){
  set lastJob, Job_Knight;
 } else {
  if(Class == Job_Crusader2){
set lastJob, Job_Crusader;
  }
 }
 jobchange Job_Novice_High;
 resetlvl(1);
 skill 142,1,0;
 skill 143,1,0;
}
close;
  }
}
 mes .npc$;
mes "I'm sorry, there are no further classes for your job.";
close;
L_GivePlat:
if (BaseClass==Job_SuperNovice) goto L_sSuperN;
if (BaseClass==Job_Swordman) goto L_sSword;
if (BaseClass==Job_Mage) goto L_sMage;
if (BaseClass==Job_Archer) goto L_sArcher;
if (BaseClass==Job_Acolyte) goto L_sAcolyte;
if (BaseClass==Job_Merchant) goto L_sMerchant;
if (BaseClass==Job_Thief) goto L_sThief;
close;
L_sSuperN:
skill 142,1,0;
close;
L_sSword:
skill 142,1,0;
skill 144,1,0;
skill 145,1,0;
skill 146,1,0;
close;
L_sMage:
skill 142,1,0;
skill 157,1,0;
close;
L_sArcher:
skill 142,1,0;
skill 147,1,0;
skill 148,1,0;
close;
L_sAcolyte:
skill 142,1,0;
skill 156,1,0;
close;
L_sMerchant:
skill 142,1,0;
skill 153,1,0;
skill 154,1,0;
skill 155,1,0;
close;
L_sThief:
skill 142,1,0;
skill 149,1,0;
skill 150,1,0;
skill 151,1,0;
skill 152,1,0;
close;
L_cantCh:
 mes .npc$;
mes "I'm sorry, you do not meet the requirements to change";
mes "Please come again soon!";
close;
L_LvError:
 mes .npc$;
mes "I'm sorry, you do not seem to have enough Job Levels";
mes "Please come again soon!";
close;
L_BvError:
 mes .npc$;
mes "I'm sorry, you do not seem to have enough Base Levels";
mes "Please come again soon!";
close;
L_noReq:
 mes .npc$;
mes "I'm sorry, you do not meet the requirements to change";
mes "Please come again soon!";
close;
L_remove:
 mes .npc$;
mes "Please remove your cart,falcon or peco";
mes "Please come again soon!";
close;
OnInit:
// Variable Setup
set $@JC_MinimumJB, 40; //Minimum job level for changing between 2nd and advance Class (Default : 40)
set $@JC_Plat, 1; //Give Platinum skills on Jobchange (Default : 1-yes)
set $@JC_SupNovM, 45; //Base Level to change into Super Novice (Default : 45)
end;
OnPCLoginEvent:
if (Class==Job_Creator) {
skill 243,1,0;
skill 247,1,0;
}
}

anyone?

February 22, 2012

alright guys. thanks a lot for the compliment. you guys the best

February 21, 2012

thanks Yachiru.

February 21, 2012

thank you. this is the old one. I've made a new one.

February 21, 2012

Hye guys, its me again. I just wanted to show you guys my new website design.

But 1st and foremost I want to thank Mr.Jaypee because of his generosity releasing the Free FluxCP design.

I use his template and work my way through there. Thanks a lot Mr.Jaypee.

I had some trouble redesigning this website. Because the code are alien to me.

Here you go. Please rate it guys -hoping for good comments.

and Mr Jaypee, can we talk in YM. I've add you on YM.

This is the 1st page. Selection between Forum and CP.

This is the CP

February 19, 2012

I have changed the player.conf. but it seems it does not effect your SP

February 19, 2012

is there any option ? i mean not by using script. maybe GM commands?

February 18, 2012

example is set dar_dar,1

how can I reset the set of the player?

For example he can do the quest again.

Example of script.

Finish quest = set dar_dar,1;

if dar_dar,1; - cannot do that quest again.

but how can I reset a player or GM set so it can do that quest again?

thanks in advance

February 18, 2012

that is correct. but i think you dont need to add the warm wind -7 at the un equip bracket.

Sign In

Profiles

Forums

Downloads

Jobs Available

Server Database

Third-Party Services

Top Guides

Store

Crowdfunding

Posts posted by pojiejapan