Jump to content

agentbogz

Members
  • Posts

    96
  • Joined

  • Last visited

Posts posted by agentbogz

  1. Eto yung Script ng Vote script hindi pa ito ang NPC

    - <tab> script <tab> VotePointConvert <tab> -1,{
    OnPCLoginEvent:
    query_sql("SELECT `points` FROM `cp_v4p_voters` WHERE account_id="+getcharid(3)+" LIMIT 1",.@points);
    if (!.@points) end;
    query_sql("UPDATE `cp_v4p_voters` SET points=(points-"+.@points+") WHERE account_id='"+getcharid(3)+"'");
    set #VOTEPOINTS, #VOTEPOINTS+.@points;
    dispbottom "Vote Points updated! Total: "+#VOTEPOINTS;
    end;
    }
    

    Then eto naman yung Script ni Euphy na Quest NPC

    //===== rAthena Script =======================================
    //= Euphy's Quest Shop
    //===== By: ==================================================
    //= Euphy
    //===== Current Version: =====================================
    //= 1.6
    //===== Compatible With: =====================================
    //= rAthena SVN r16862+
    //===== Description: =========================================
    //= A dynamic quest shop based on Lunar's, with easier config.
    //= Includes support for multiple shops & cashpoints.
    //= Item Preview script by ToastOfDoom.
    //============================================================
    // Shop NPCs -- supplying no argument displays entire menu.
    // callfunc "qshop"{,<shop ID>{,<shop ID>{,...}}};
    //============================================================
    prontera,164,203,6 script Quest Shop#1 998,{ callfunc "qshop"; }
    
    // Script Core
    //============================================================
    - script quest_shop -1,{
    function Add; function Chk; function Slot; function A_An;
    OnInit:
    freeloop(1);
    // -----------------------------------------------------------
    //  Basic shop settings.
    // -----------------------------------------------------------
    set .Announce,1; // Announce quest completion? (1: yes / 0: no)
    set .ShowSlot,1; // Show item slots? (2: all equipment / 1: if slots > 0 / 0: never)
    set .ShowID,0;   // Show item IDs? (1: yes / 0: no)
    set .ShowZeny,0; // Show Zeny cost, if any? (1: yes / 0: no)
    set .MaxStack,100; // Max number of quest items purchased at one time.
    // -----------------------------------------------------------
    //  Points variable -- optional quest requirement.
    // setarray .Points$[0],"<variable name>","<display name>";
    // -----------------------------------------------------------
    setarray .Points$[0],"#VOTEPOINTS","Vote Points";
    // -----------------------------------------------------------
    //  Shop IDs -- to add shops, copy dummy data at bottom of file.
    // setarray .Shops$[1],"<Shop 1>","<Shop 2>"{,...};
    // -----------------------------------------------------------
    setarray .Shops$[1],"Headgears","Weapons","Other";
    // -----------------------------------------------------------
    //  Quest items -- do NOT use a reward item more than once!
    // Add(<shop ID>,<reward ID>,<reward amount>,
    //	 <Zeny cost>,<point cost>,
    //	 <required item ID>,<required item amount>{,...});
    // -----------------------------------------------------------
    Add(1,5022,1,0,0,7086,1,969,10,999,40,1003,50,984,2);
    Add(1,5032,1,0,0,1059,250,2221,1,2227,1,7063,600);
    Add(1,5027,1,0,0,2252,1,1036,400,7001,50,4052,1);
    Add(1,5045,1,0,0,2252,1,1054,450,943,1200);
    Add(2,1224,1,0,0,7297,30,969,10,999,50,714,10);
    Add(2,1225,1,0,0,7292,30,969,10,999,50,714,10);
    Add(3,531,1,3,0,512,1,713,1);
    Add(3,532,1,3,0,513,1,713,1);
    Add(3,533,1,3,0,514,1,713,1);
    Add(3,534,1,3,0,515,1,713,1);
    // -----------------------------------------------------------
    freeloop(0);
    set .menu$,"";
    for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1) {
     set .menu$, .menu$+.Shops$[.@i]+":";
     npcshopdelitem "qshop"+.@i,909;
    }
    end;
    OnMenu:
    set .@size, getarraysize(@i);
    if (!.@size) set .@i, select(.menu$);
    else if (.@size == 1) set .@i, @i[0];
    else {
     for(set .@j,0; .@j<.@size; set .@j,.@j+1)
      set .@menu$, .@menu$+.Shops$[@i[.@j]]+":";
     set .@i, @i[select(.@menu$)-1];
    }
    deletearray @i[0],getarraysize(@i);
    if (.Shops$[.@i] == "") {
     message strcharinfo(0),"An error has occurred.";
     end;
    }
    dispbottom "Select one item at a time.";
    callshop "qshop"+.@i,1;
    npcshopattach "qshop"+.@i;
    end;
    OnBuyItem:
    // .@q[] : RewardID, BoughtAmt, RewardAmt, BaseAmt, ReqZeny, ReqPts, { ReqItem, ReqAmt, ... }
    setarray .@q[0],@bought_nameid[0],((@bought_quantity[0] > .MaxStack)?.MaxStack:@bought_quantity[0]);
    copyarray .@q[3],getd(".q_"+.@q[0]+"[0]"),getarraysize(getd(".q_"+.@q[0]));
    set .@q[2],.@q[1]*.@q[3];
    if (!.@q[2] || .@q[2] > 30000) {
     message strcharinfo(0),"You can't purchase that many "+getitemname(.@q[0])+".";
     end;
    }
    mes "[Quest Shop]";
    mes "Reward: ^0055FF"+((.@q[2] > 1)?.@q[2]+"x ":"")+Slot(.@q[0])+"^000000";
    mes "Requirements:";
    if (.@q[4]) mes " > "+Chk(Zeny,.@q[4]*.@q[1])+(.@q[4]*.@q[1])+" Zeny^000000";
    if (.@q[5]) mes " > "+Chk(getd(.Points$[0]),.@q[5]*.@q[1])+(.@q[5]*.@q[1])+" "+.Points$[1]+" ("+getd(.Points$[0])+"/"+(.@q[5]*.@q[1])+")^000000";
    if (.@q[6]) for(set .@i,6; .@i<getarraysize(.@q); set .@i,.@i+2)
     mes " > "+Chk(countitem(.@q[.@i]),.@q[.@i+1]*.@q[1])+((.ShowID)?"{"+.@q[.@i]+"} ":"")+Slot(.@q[.@i])+" ("+countitem(.@q[.@i])+"/"+(.@q[.@i+1]*.@q[1])+")^000000";
    next;
    setarray @qe[1], getiteminfo(.@q[0],5), getiteminfo(.@q[0],11);
    if (((@qe[1] & 1) || (@qe[1] & 256) || (@qe[1] & 512)) && @qe[2] > 0)
     set .@preview,1;
    addtimer 1000, strnpcinfo(0)+"::OnEnd";
    while(1) {
     switch(select(" ~ Purchase ^0055FF"+getitemname(.@q[0])+"^000000:"+((.@preview && !@qe[6])?" ~ Preview...":"")+": ~ ^777777Cancel^000000")) {
     case 1:
      if (@qe[0]) {
    mes "[Quest Shop]";
    mes "You're missing one or more quest requirements.";
    close;
      }
      if (!checkweight(.@q[0],.@q[2])) {
    mes "[Quest Shop]";
    mes "^FF0000You need "+(((.@q[2]*getiteminfo(.@q[0],6))+Weight-MaxWeight)/10)+" additional weight capacity to complete this trade.^000000";
    close;
      }
      if (.@q[4]) set Zeny, Zeny-(.@q[4]*.@q[1]);
      if (.@q[5]) setd .Points$[0], getd(.Points$[0])-(.@q[5]*.@q[1]);
      if (.@q[6]) for(set .@i,6; .@i<getarraysize(.@q); set .@i,.@i+2)
    delitem .@q[.@i],.@q[.@i+1]*.@q[1];
      getitem .@q[0],.@q[2];
      if (.Announce) announce strcharinfo(0)+" has created "+((.@q[2] > 1)?.@q[2]+"x "+getitemname(.@q[0]):A_An(getitemname(.@q[0])))+"!",0;
      specialeffect2 699;
      close;
     case 2:
      setarray @qe[3], getlook(LOOK_HEAD_BOTTOM), getlook(LOOK_HEAD_TOP), getlook(LOOK_HEAD_MID), 1;
      if (@qe[1] & 1) changelook LOOK_HEAD_BOTTOM, @qe[2];
      if (@qe[1] & 256) changelook LOOK_HEAD_TOP, @qe[2];
      if (@qe[1] & 512) changelook LOOK_HEAD_MID, @qe[2];
      break;
     case 3:
      close;
     }
    }
    OnEnd:
    if (@qe[6]) {
     changelook LOOK_HEAD_BOTTOM, @qe[3];
     changelook LOOK_HEAD_TOP, @qe[4];
     changelook LOOK_HEAD_MID, @qe[5];
    }
    deletearray @qe[0],7;
    end;
    function Add {
    if (getitemname(getarg(1)) == "null") {
     debugmes "Quest reward #"+getarg(1)+" invalid (skipped).";
     return;
    }
    setarray .@j[0],getarg(2),getarg(3),getarg(4);
    for(set .@i,5; .@i<getargcount(); set .@i,.@i+2) {
     if (getitemname(getarg(.@i)) == "null") {
      debugmes "Quest requirement #"+getarg(.@i)+" invalid (skipped).";
      return;
     } else
      setarray .@j[.@i-2],getarg(.@i),getarg(.@i+1);
    }
    copyarray getd(".q_"+getarg(1)+"[0]"),.@j[0],getarraysize(.@j);
    npcshopadditem "qshop"+getarg(0),getarg(1),((.ShowZeny)?getarg(3):0);
    return;
    }
    function Chk {
    if (getarg(0) < getarg(1)) {
     set @qe[0],1;
     return "^FF0000";
    } else
     return "^00FF00";
    }
    function Slot {
    set .@s$,getitemname(getarg(0));
    switch(.ShowSlot) {
     case 1: if (!getitemslots(getarg(0))) return .@s$;
     case 2: if (getiteminfo(getarg(0),2) == 4 || getiteminfo(getarg(0),2) == 5) return .@s$+" ["+getitemslots(getarg(0))+"]";
     default: return .@s$;
    }
    }
    function A_An {
    setarray .@A$[0],"a","e","i","o","u";
    set .@B$, "_"+getarg(0);
    for(set .@i,0; .@i<5; set .@i,.@i+1)
     if (compare(.@B$,"_"+.@A$[.@i])) return "an "+getarg(0);
    return "a "+getarg(0);
    }
    }
    function script qshop {
    deletearray @i[0],getarraysize(@i);
    for(set .@i,0; .@i<getargcount(); set .@i,.@i+1)
     set @i[.@i],getarg(.@i);
    doevent "quest_shop::OnMenu";
    end;
    }
    
    // Dummy shop data -- copy as needed.
    //============================================================
    - shop qshop1 -1,909:-1
    - shop qshop2 -1,909:-1
    - shop qshop3 -1,909:-1
    - shop qshop4 -1,909:-1
    - shop qshop5 -1,909:-1
    

    Yan po sir, Tell nyo nalang po sir kung may Prob pa.. ^_^

  2. Add this to your packet_db.txt

    //2012-04-10aRagexeRE
    0x01FD,15,repairitem,2
    0x089C,26,friendslistadd,2
    0x0885,5,hommenu,2:4
    0x0961,36,storagepassword,0
    0x0288,-1,cashshopbuy,4:8
    0x091C,26,partyinvite2,2
    0x094B,19,wanttoconnection,2:6:10:14:18
    0x0369,7,actionrequest,2:6
    0x083C,10,useskilltoid,2:4:6
    0x0439,8,useitem,2:4
    0x0945,-1,itemlistwindowselected,2:4:8
    0x0815,-1,reqopenbuyingstore,2:4:8:9:89
    0x0817,2,reqclosebuyingstore,0
    0x0360,6,reqclickbuyingstore,2
    0x0811,-1,reqtradebuyingstore,2:4:8:12
    0x0819,-1,searchstoreinfo,2:4:5:9:13:14:15
    0x0835,2,searchstoreinfonextpage,0
    0x0838,12,searchstoreinfolistitemclick,2:6:10
    0x0437,5,walktoxy,2
    0x0886,6,ticksend,2
    0x0871,5,changedir,2:4
    0x0938,6,takeitem,2
    0x0891,6,dropitem,2:4
    0x086C,8,movetokafra,2:4
    0x08A6,8,movefromkafra,2:4
    0x0438,10,useskilltopos,2:4:6:8
    0x0366,90,useskilltoposinfo,2:4:6:8:10
    0x0889,6,getcharnamerequest,2
    0x0884,6,solvecharname,2
    0x08E5,41,bookingregreq,2:4 //Added to prevent disconnections
    0x08E6,4
    0x08E7,10,bookingsearchreq,2
    0x08E8,-1
    0x08E9,2,bookingdelreq,2
    0x08EA,4
    0x08EB,39,bookingupdatereq,2
    0x08EC,73
    0x08ED,43
    0x08EE,6
    0x08EF,6,bookingignorereq,2
    0x08F0,6
    0x08F1,6,bookingjoinpartyreq,2
    0x08F2,36
    0x08F3,-1
    0x08F4,6
    0x08F5,-1,bookingsummonmember,2:4
    0x08F6,22
    0x08F7,3
    0x08F8,7
    0x08F9,6
    0x08FA,6
    0x08FB,6,bookingcanceljoinparty,2
    0x0907,5,moveitem,2:4
    0x0908,5
    0x08D7,28,battlegroundreg,2:4 //Added to prevent disconnections
    

  3. Disconnecting session #7 with unknown packet version (p:0x08a7,l:19).

    
    //2011-12-28aRagexeRE
    0x01FD,15,repairitem,2
    0x0369,26,friendslistadd,2
    0x0437,5,hommenu,2:4
    0x02C4,36,storagepassword,0
    0x0288,-1,cashshopbuy,4:8
    0x0802,26,partyinvite2,2
    0x08A7,19,wanttoconnection,2:6:10:14:18
    0x08AD,7,actionrequest,2:6
    0x0436,10,useskilltoid,2:4:6
    0x0439,8,useitem,2:4
    0x0892,-1,itemlistwindowselected,2:4:8
    0x0889,18,bookingregreq,2:4:6
    0x0803,4
    0x0804,14,bookingsearchreq,2:4:6:8:12
    0x0805,-1
    0x0806,2,bookingdelreq,0
    0x0807,4
    0x0808,14,bookingupdatereq,2
    0x0809,50
    0x080A,18
    0x080B,6
    0x035F,-1,reqopenbuyingstore,2:4:8:9:89
    0x023B,2,reqclosebuyingstore,0
    0x0811,6,reqclickbuyingstore,2
    0x0365,-1,reqtradebuyingstore,2:4:8:12
    0x08AC,-1,searchstoreinfo,2:4:5:9:13:14:15
    0x0281,2,searchstoreinfonextpage,0
    0x088B,12,searchstoreinfolistitemclick,2:6:10
    0x08A6,5,walktoxy,2
    0x0838,6,ticksend,2
    0x0362,5,changedir,2:4
    0x08A2,6,takeitem,2
    0x0888,6,dropitem,2:4
    0x089C,8,movetokafra,2:4
    0x0885,8,movefromkafra,2:4
    0x0364,10,useskilltopos,2:4:6:8
    0x07EC,90,useskilltoposinfo,2:4:6:8:10
    0x0886,6,getcharnamerequest,2
    0x089B,6,solvecharname,2
    0x0907,5,moveitem,2:4
    0x0908,5
    0x08D7,28,battlegroundreg,2:4 //Added to prevent disconnections
    
    //Add new packets here
    //packet_ver: 29
    

    mmo.h

    #ifndef PACKETVER

    #define PACKETVER 20111228

    #endif

    i'd already enable Skip Packet Obfuscation.

  4. Hi Guys, i have a problem

    i tried to moved the folder of my Control panel to my main domain..

    last time my control panel was located at www.domain.com/cp

    now i've moved it to main location of my domain which is domain.com..

    the problem is.. even i have a fresh installed Fluxcp this error appears when i tried to use the

    Reset Position, Reset Looks, Change Slot and etc.

    unauthorized-99499.jpg

  5. you can try this..

    Sir i try this but when i load it, it's looking for x,y coordinates..

    try this

    http://pastebin.com/raw.php?i=3PrnkSNL

    trunk/db/re/item_db.txt

    2236,Santa's_Hat,Santa Hat,5,20,,100,,1,,0,0xFFFFFFFF,7,2,256,,0,1,20,{ bonus bMdef,1; bonus bLuk,1; },{},{  doevent "Sample#xmas::OnKick";  }
    

    Maybe you can use this... He posted it lol...^^^^^^^^^

    Just put it one by one in the item_db.txt and just use the OnKick: for the npc script...

    btw, I just knew about this way.. so I haven't tried... :D

    Just share what I've just learned.. :)

    try this

    http://pastebin.com/raw.php?i=3PrnkSNL

    trunk/db/re/item_db.txt

    2236,Santa's_Hat,Santa Hat,5,20,,100,,1,,0,0xFFFFFFFF,7,2,256,,0,1,20,{ bonus bMdef,1; bonus bLuk,1; },{},{  doevent "Sample#xmas::OnKick";  }
    

    Maybe you can use this... He posted it lol...^^^^^^^^^

    Just put it one by one in the item_db.txt and just use the OnKick: for the npc script...

    btw, I just knew about this way.. so I haven't tried... :D

    Just share what I've just learned.. :)

    Hi sir.. do you have other one? item equipped or unequipped are restricted.. because here u need to equip it..

  6. Hello Guys do you have a script that restrict items in a certain map, even the equip cards?

    For example: ALL MVP Cards and All Donation Items are Restricted in a certain map. even it is Equip or Unequip it is restricted.

    and if the player have this items, they're automatically warp back home.

    i Hope you understand what i'm trying to say here ^_^

    Thanks you very much!

  7. Hello guys i would like to request a script of Disguise Item NPC and Aura changer NPC

    *Disguise Item NPC - It will Disguise the item you are wearing.

    Example: I'm wearing Valkyrie Helm and i want to hide it or disguise it as a POO POO HAT. i'll take the NPC to disguise my item for 1B Zeny, and when the user's died. my disguised item will back to normal.

    *Aura Changer NPC - this npc change the style of your aura.

    Example: I have a normal aura the blueish white one. and i want to change it to bubble Aura i need to pay that aura in that NPC for 1B Zeny.

    If you have this kind of script guys, can you share it?

    Big thanks to all of you. LOVE YOU ALL! =)

×
×
  • Create New...