Jump to content

stydianx

Members
 View Profile  See their activity

  • Posts

    390

  • Joined

  • Last visited

  • Days Won

    1

 Content Type 

Posts posted by stydianx

    custom Stylist

    in Script Requests

    Posted

    Okay, so you want an NPC which basically makes your character look like another character or did you want to turn them into a monster?

    im sorry, yes i want my character to look like another character :)

    like GLT cross to Archer..

    custom Stylist

    in Script Requests

    Posted

    i tried to search for this but all that came out are request for "disguise event" and npc's that gives rewards from disguise events.

    what i had in mind is a NPC script that functions like the Stylist NPC, but this changes his job sprite, and instead of paying zeny, this shop only accepts TCG's :)

    p.s. it'll be great if someone provides the script that doesn't involve SQL :) but if it has SQL please teach how to put :)

    Berz Quest modified

    in Scripting Support

    Posted

    oohhh.. okay, let me try that :) thanks my friend :)

    No no, he means change them in each file.

    BerzQuest1, BerzQuest2, etc.

    They are global permanent variables which will affect any other script that uses the same exact one.

    hehey! it worked! thanks :)

    Berz Quest modified

    in Scripting Support

    Posted · Edited by stydianx
    Please use [CODEBOX] or Attachments for long contents. 

    
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= Quest to get the Berzebub Card
//===== Additional Comments: =================================
//= 1.1 Fixed ingredients. Was too exploitable [Lupus]
//= 1.2 Optimized. [Euphy]
//============================================================

hugel,55,145,4 script Mazingger Z 57,{

setarray .@Items[0],1056,100,1139,1,735,50,6325,50,6319,50;
set .@n$,"[Mazingger Z]";

mes .@n$;
if(BerzQuest == 1) {
mes "Our Conversation here is done. Please leave me alone now.";
close; }
mes "Wow! thats a great wing you have! i wanna tell you something, do you mind?";
next;
if(select("Keep Talking:Leave")==2) goto M_Leave;

mes .@n$;
mes "I used to have a friend, hes a great man.. but i guess nothing last forever..";
next;
mes .@n$;
mes "he can improve your wings! you'll be allot stronger with that wing, but he makes it out of strange things... i think he also performs a Ritual to make it.. you interested? .";
next;
if(select("Tell me more about it:Nah, I don't care about it")==2) goto M_Leave;

mes .@n$;
mes "It seems you are.. Hmmm.. i think its called ^FF0000Shaman Wings^000000, im not really sure.. but i know he makes them!!";
next;
mes .@n$;
mes "If you give me what i ask, i'll give you something that will favor the great wing creator i spoke of.";
for(set .@i,0; .@i<getarraysize(.@Items); set .@i,.@i+2) {
mes " ~ "+.@Items[.@i+1]+"x "+getitemname(.@Items[.@i]);
if (countitem(.@Items[.@i]) < .@Items[.@i+1]) set .@nr,1; }
next;
if(select("Im rich bitch! Fuck off!:Okay! Please wait here!")==2) goto M_Leave;

mes .@n$;
if (.@nr) {
mes "Ignorant fool! Your think your strong with those wings? dont make me laugh! pffff!";
close; }
for(set .@i,0; .@i<getarraysize(.@Items); set .@i,.@i+2)
delitem .@Items[.@i], .@Items[.@i+1];
getitem 4738,1;
set BerzQuest, 1;
mes "Here you go! ^FF0000Orb of Shaman^000000, Dont use it! or else, you'll regret it! haha!";
emotion e_grat;
close;

M_Leave:
mes .@n$;
mes "Prick!";
close;
}

    i made 3 of these quest but with different items and requirements, the problem is,

    when i finished quest #1 then #2 and #3 automatically becomes finished as well..

    what do i need to change?

    EDIT: i just duplicated the script and jsut replaced the text, items and prize..

    Request for script

    in Script Requests

    Posted · Edited by stydianx

    here's a good freebie script..

    easy to modify + it automatically gives then (one per account.)

    
- script Ivy poli 1,{
OnPCLoginEvent:
if(!#givenStartItems) {
set #givenStartItems, 1;
//=== Freebies
getitem 14545,5;
getitem 13644,1;
getitem 7227,5;
getitem 675,5;
getitem 32702,1;
}
end;
}

    A NPC that gives you skill of another job.

    in Script Requests

    Posted

    i was thinking if there is a NPC that lets have a skill of another job.

    for example, i am a super novice, i want to acquire the skill "FALCON MASTERY", im going to go to an NPC that

    assigns a quest in order for me to acquire the skill that i wanted.

    it also let's me look on a list of skills (complete list of skills from all jobs.) and lets me choose from there.

    if there is already an existing script like there, please link it to me, cause i cant find one :(

    Req: Hunting missions

    in Script Requests

    Posted · Edited by stydianx

    1. players can only take up to 10 quest a day with each mission increasing difficulty as player progress.
    from what I understand from his script, the difficulty is generated randomly

    and the reward is given by the formula of monster's level x mob need to hunt

    I haven't figure out the way to do "increasing difficulty with each progress" though

    perhaps you can suggest a formula for it

    3. same as #1 but for party missions.
    you mean to take this mission, they need to be in party ?

    has minimum party members retrictions ... and then all party members will complete as a whole ?

    sounds interesting ... already like an event script

    4. has collecting missions, player kill mission

    no idea what this means

    nope, i dont have a formula.. hmm.. i was hoping emistry does.. /meh

    for number 3, yes.. they need to be in a party to be able to take the mission,

    and they will complete the mission as a team..

    for number four, here is an example:

    Collecting mission/Gathering mission: players must gather and deliver, certain amount of certain items to complete a mission.

    Player kill mission: player who take this quest must PK (Player Kill) or participate in an event that involves PvP to kill another player and complete quest.

    Req: Hunting missions

    in Script Requests

    Posted · Edited by stydianx

    is it possible to customize Euphy's hunting mission script?

    cause i took a quest with account 1 and when i used account 2, it says "you already took a quest".

    which is really sad :( so i want to modify it but still preserving the the script.

    modifications i want:

    1. players can only take up to 10 quest a day with each mission increasing difficulty as player progress.

    2. not restricted to a single IP/account.

    3. same as #1 but for party missions.

    4. has collecting missions, player kill mission

    
//===== rAthena Script =======================================
//= Hunting Missions
//===== By: ==================================================
//= Euphy
//===== Current Version: =====================================
//= 1.2b
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= Random hunting missions.
//= Rewards are based on quest difficulty.
//============================================================

prontera,152,187,6 script Hunting Missions 468,{
function Chk; function Cm;
mes "[Hunting Missions]";
mes "Hello, "+strcharinfo(0)+"!";
if (!#Mission_Delay) {
next;
mes "[Hunting Missions]";
mes "I can't find any records...";
mes "You must be new here!";
emotion e_omg;
next;
callsub Mission_Info;
emotion e_go;
set #Mission_Delay,1;
close;
}
mes rand(2)?"Working hard, as always...":"Not slacking, I hope...";
mes "Is there anything I can help";
mes "you with?";
mes " ";
mes "^777777~ You've completed ^0055FF"+Mission_Total+"^777777 mission"+((Mission_Total == 1)?"":"s")+". ~^000000";
next;
switch(select(((!Mission0)?" ~ New Mission::":": ~ Mission Status: ~ Abandon Mission")+": ~ Information: ~ Mission Shop: ~ View Top Hunters: ~ ^777777Cancel^000000")) {
case 1:
mes "[Hunting Missions]";
if (#Mission_Count) {
mes "You've started a mission";
mes "on another character.";
close;
}
if (#Mission_Delay > gettimetick(2) && .Delay) {
set .@i, #Mission_Delay-gettimetick(2);
if (.@i > 3600) set .@j$, (.@i/3600)+" hour"+(((.@i/3600) == 1)?"":"s");
else if (.@i > 60) set .@j$, (.@i/60)+" minute"+(((.@i/60) == 1)?"":"s");
else set .@j$, (.@i)+" second"+((.@i == 1)?"":"s");
mes "I'm afraid you'll have to wait "+.@j$+" before taking another mission.";
close;
}
mes "You must hunt:";
query_sql("SELECT ID FROM mob_db WHERE left(Sprite, 4) != 'meta' AND left(Sprite, 2) != 'E_' AND ~Mode & 32 AND EXP > 0 AND MVP1id = 0 AND DropCardid > 4000 AND DropCardid < 5000 AND ID < 2000 ORDER BY rand() LIMIT "+.Quests, .@mob);
for (set .@i,0; .@i<.Quests; set .@i,.@i+1) {
setd "Mission"+.@i, .@mob[.@i];
setd "Mission"+.@i +"_",0;
}
set #Mission_Count, rand(.Count[0],.Count[1]);
callsub Mission_Status;
next;
mes "[Hunting Missions]";
mes "Report back when";
mes "you've finished.";
mes "Good luck!";
close;
case 2:
mes "[Hunting Missions]";
mes "Mission status:";
callsub Mission_Status;
close;
case 3:
mes "[Hunting Missions]";
mes "Do you really want to";
mes "abandon your mission?";
if (.Delay) mes "Your delay time will not be reset.";
next;
switch(select(" ~ Abandon...: ~ ^777777Cancel^000000")) {
case 1:
mes "[Hunting Missions]";
mes "Alright, I've dropped";
mes "your current mission.";
specialeffect2 EF_STORMKICK4;
for(set .@i,0; .@i<.Quests; set .@i,.@i+1) {
setd "Mission"+.@i,0;
setd "Mission"+.@i+"_",0;
}
set #Mission_Count,0;
if (.Delay) set #Mission_Delay, gettimetick(2)+(.Delay*3600);
close;
case 2:
mes "[Hunting Missions]";
mes "I knew you were kidding!";
mes "Keep up the good work.";
emotion e_heh;
close;
}
case 4:
callsub Mission_Info;
close;
case 5:
mes "[Hunting Missions]";
mes "You have ^0055FF"+#Mission_Points+"^000000 Mission Points.";
mes "Use them well!";
callshop "mission_shop",1;
npcshopattach "mission_shop";
end;
case 6:
mes "[Hunting Missions]";
mes "The top hunters are:";
query_sql("SELECT char_id AS id, (SELECT `name` FROM `char` WHERE char_id = id),`value` FROM `global_reg_value` WHERE str = 'Mission_Total' ORDER BY CAST(`value` AS SIGNED) DESC LIMIT 5",.@id,.@name$,.@val);
for(set .@i,0; .@i<5; set .@i,.@i+1)
mes "  [Rank "+(.@i+1)+"]  "+((.@name$[.@i] == "")?"^777777none":"^0055FF"+.@name$[.@i]+"^000000 : ^FF0000"+.@val[.@i]+" pt.")+"^000000";
close;
case 7:
mes "[Hunting Missions]";
mes "Nothing? Okay...";
emotion e_hmm;
close;
}

Mission_Status:
set @f,0;
deletearray .@j[0], getarraysize(.@j);
for(set .@i,0; .@i<.Quests; set .@i,.@i+1) {
set .@j[.@i], getd("Mission"+.@i);
set .@j[.Quests], .@j[.Quests]+strmobinfo(3,.@j[.@i]);
set .@j[.Quests+1], .@j[.Quests+1]+(strmobinfo(6,.@j[.@i])/(getbattleflag("base_exp_rate")/100)*.Modifier[0]);
set .@j[.Quests+2], .@j[.Quests+2]+(strmobinfo(7,.@j[.@i])/(getbattleflag("job_exp_rate")/100)*.Modifier[1]);
mes " > "+Chk(getd("Mission"+.@i+"_"),#Mission_Count)+strmobinfo(1,.@j[.@i])+" ("+getd("Mission"+.@i+"_")+"/"+#Mission_Count+")^000000";
}

// Reward formulas:
set .@Mission_Points, 3+(.@j[.Quests]/.Quests/6);
set .@Base_Exp, #Mission_Count*.@j[.Quests+1]/5;
set .@Job_Exp, #Mission_Count*.@j[.Quests+2]/5;
set .@Zeny, #Mission_Count*.Quests*.@j[.@i]*.Modifier[2];

next;
mes "[Hunting Missions]";
mes "Mission rewards:";
mes " > Mission Points: ^0055FF"+.@Mission_Points+"^000000";
mes " > Base Experience: ^0055FF"+Cm(.@Base_Exp)+"^000000";
mes " > Job Experience: ^0055FF"+Cm(.@Job_Exp)+"^000000";
mes " > Zeny: ^0055FF"+Cm(.@Zeny)+"^000000";
if (@f) { set @f,0; return; }
next;
mes "[Hunting Missions]";
mes "Oh, you're done!";
mes "Good work.";
mes "Here's your reward.";
emotion e_no1;
specialeffect2 EF_ANGEL;
specialeffect2 EF_TRUESIGHT;
set #Mission_Points, #Mission_Points+.@Mission_Points;
set BaseExp, BaseExp+.@Base_Exp;
set JobExp, JobExp+.@Job_Exp;
set Zeny, Zeny+.@Zeny;
for(set .@i,0; .@i<.Quests; set .@i,.@i+1) {
setd "Mission"+.@i,0;
setd "Mission"+.@i+"_",0;
}
set #Mission_Count,0;
if (.Delay) set #Mission_Delay, gettimetick(2)+(.Delay*3600);
set Mission_Total, Mission_Total+1;
if (Mission_Total == 1) query_sql("INSERT INTO `global_reg_value` (`char_id`,`str`,`value`,`type`,`account_id`) VALUES ("+getcharid(0)+",'Mission_Total','1',3,0)");
else query_sql("UPDATE `global_reg_value` SET `value` = "+Mission_Total+" WHERE char_id = "+getcharid(0)+" AND `str` = 'Mission_Total'");
close;

Mission_Info:
mes "[Hunting Missions]";
mes "If you so choose, I can assign";
mes "you a random hunting quest.";
mes "Some are easier than others, but";
mes "the rewards increase with difficulty.";
next;
mes "[Hunting Missions]";
mes "Missions points are shared";
mes "amongst all your characters.";
if (.Delay) mes "Delay time is, too.";
mes "You can't take missions on";
mes "multiple characters at once.";
next;
mes "[Hunting Missions]";
mes "You can start a quest";
if (.Delay) mes "every "+((.Delay == 1)?"hour.":.Delay+" hours.");
else mes "whenever you want.";
mes "That's everything~";
return;

function Chk {
if (getarg(0) < getarg(1)) { set @f,1; return "^FF0000"; }
else return "^00FF00"; }

function Cm {
set .@str$, getarg(0);
for(set .@i,getstrlen(.@str$)-3; .@i>0; set .@i,.@i-3)
set .@str$, insertchar(.@str$,",",.@i);
return .@str$; }

OnBuyItem:
set @cost,0;
for(set .@i,0; .@i<getarraysize(@bought_nameid); set .@i,.@i+1)
for(set .@j,0; .@j<getarraysize(.Shop); set .@j,.@j+2)
if (@bought_nameid[.@i] == .Shop[.@j]) {
set @cost, @cost+(.Shop[.@j+1]*@bought_quantity[.@i]);
break;
}
mes "[Hunting Missions]";
if (@cost > #Mission_Points) mes "You don't have enough Mission Points.";
else {
for(set .@i,0; .@i<getarraysize(@bought_nameid); set .@i,.@i+1) {
getitem @bought_nameid[.@i], @bought_quantity[.@i];
dispbottom "Purchased "+@bought_quantity[.@i]+"x "+getitemname(@bought_nameid[.@i])+".";
}
set #Mission_Points, #Mission_Points-@cost;
mes "Deal completed.";
emotion e_cash;
}
set @cost,0;
deletearray @bought_nameid[0], getarraysize(@bought_nameid);
deletearray @bought_quantity[0], getarraysize(@bought_quantity);
close;

OnNPCKillEvent:
if (!getcharid(1) || !.Party) {
if (!#Mission_Count || !Mission0) end;
for (set .@i, 0; .@i<.Quests; set .@i,.@i+1) {
if (strmobinfo(1,killedrid) == strmobinfo(1,getd("Mission"+.@i))) {
if (getd("Mission"+.@i+"_") < #Mission_Count) {
dispbottom "[Hunting Mission] Killed "+(set(getd("Mission"+.@i+"_"),getd("Mission"+.@i+"_")+1))+" of "+#Mission_Count+" "+strmobinfo(1,killedrid)+".";
end;
}
}
}
} else if (.Party) {
set .@mob, killedrid;
getmapxy(.@map1$,.@x1,.@y1,0);
getpartymember getcharid(1),1;
getpartymember getcharid(1),2;
for(set .@i,0; .@i<$@partymembercount; set .@i,.@i+1) {
if (isloggedin($@partymemberaid[.@i], $@partymembercid[.@i])) {
attachrid $@partymemberaid[.@i];
if (#Mission_Count && Mission0 && HP > 0) {
getmapxy(.@map2$,.@x2,.@y2,0);
if ((.@map1$ == .@map2$ || .Party == 1) && (distance(.@x1,.@y1,.@x2,.@y2) <= 30 || .Party < 3)) {
for(set .@j,0; .@j<.Quests; set .@j,.@j+1) {
if (strmobinfo(1,.@mob) == strmobinfo(1,getd("Mission"+.@j))) {
if (getd("Mission"+.@j+"_") < #Mission_Count) {
dispbottom "[Hunting Mission] Killed "+(set(getd("Mission"+.@j+"_"),getd("Mission"+.@j+"_")+1))+" of "+#Mission_Count+" "+strmobinfo(1,.@mob)+".";
break;
}
}
}
}
}
}
}
}
end;

OnInit:
set .Delay,12; // Quest delay, in hours (0 to disable).
set .Quests,4; // Number of subquests per mission (increases rewards).
set .Party,3; // Party options: 0 (exclude party kills), 1 (include party kills), 2 (same map only), 3 (screen area only)
setarray .Count[0], // Min and max monsters per subquest (increases rewards).
40,70;
setarray .Modifier[0], // Multipliers for Base Exp, Job Exp, and Zeny rewards.
getbattleflag("base_exp_rate")/100,getbattleflag("job_exp_rate")/100,60;
setarray .Shop[0], // Reward items: <ID>,<point cost> (about 10~20 points per hunt).
607,2,12208,10,14592,10,675,20,969,20,603,4,2753,100;

npcshopdelitem "mission_shop",512;
for(set .@i,0; .@i<getarraysize(.Shop); set .@i,.@i+2)
npcshopadditem "mission_shop", .Shop[.@i], .Shop[.@i+1];
end;
}
- shop mission_shop -1,512:-1

    ZEN/Dangerous soul collect

    in Tulong para sa Server

    Posted · Edited by stydianx

    magandang hapon mga kaibigan :)

    nais ko lng malamang kung papano ko maiaalis ang "casting time"

    ng skill na ito..

    ito po ang nasa aking DB

    
// At what dex does the cast time become zero (instacast)?
castrate_dex_scale: 150

// How much (dex*2+int) does variable cast turns zero?
vcast_stat_scale: 230

    custom BGM

    in Client-side Support

    Posted

    Well, if your server doesn't have its own custom GRF, it'll be in the data folder, but it should also be in the data.grf file, too, either way. All you'd need to do is pull it out with a GRF editor (like Gryff, or GRF Builder, for example), and put it into your client's data folder, or your own custom GRF, after you throw it into Notepad, and edit it however you want to.

    And actually, the folder name should be in all-caps ("BGM"). What folder did you put it into?

    Did it stop playing background music just in Prontera, or everywhere (like other maps, and the login screen)?

    i dont have "mp3nametable.txt" why is this?

    Custom Items not Showing Sprites on Equip.

    in Graphics Support

    Posted

    im getting the same error.. only for wings..

    my wings are using head gear views (costume lower headgear) the view ID is correct..

    the male and female view is also correct, i believe the drop sprite is also correct, same goes to the

    "item" and "collection". but when im in-game, whenever i click the item to equip it, the entire game crasher and sends out an error.

    i didn't skip any lines in the "accessoryID", i followed the guidelines in wiki, so i don't know what is wrong..

    my client date is 2011-03-15 and im using the latest lua files.

×
×
  • Create New...