Jump to content
  • 0

VOTE NPC

Json

Asked by Json,

 Share

Question

Json Poring

Json

Posted
  • Group:  Members
  • Topic Count:  11
  • Topics Per Day:  0.00
  • Content Count:  22
  • Reputation:   1
  • Joined:  08/16/12
  • Last Seen:  
Posted

Hi can i request a vote npc script that give a poring coin every 12 hrs or can u fix this script ? 

 

 

 

//===== eAthena Script =======================================
//= Card Removal NPC
//===== By: ==================================================
//= TyrNemesis^
//===== Current Version: =====================================
//= 1.2
//===== Compatible With: =====================================
//= eAthena SVN
//===== Description: =========================================
//= Removes cards from equipped items.
//===== Additional Comments: =================================
//= 1.0 First version. [TyrNemesis^]
//= 1.2 Optimized and fixed getequipname menu. [Kisuka]
//============================================================

hun_vil,247,68,6 script Wise Old Woman#eAcustom 78,{
mes "[Wise Old Woman]";
mes "Good day, young one. I have the power to remove cards that you have compounded onto your equipment. Does this idea please you?";
next;
switch(select("Yes, it does.:What do you charge?:No thanks.")) {
case 1:
mes "[Wise Old Woman]";
mes "Very well. Which item shall I examine for you?";
next;

setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";
set .@menu$,"";
for( set .@i,1; .@i <= 10; set .@i,.@i+1 )
{
if( getequipisequiped(.@i) )
set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";

set .@menu$, .@menu$ + ":";
}
set .@part,select(.@menu$);
if(!getequipisequiped(.@part)) {
mes "[Wise Old Woman]";
mes "Young one... Your not wearing anything there that I can remove cards from.";
close;
}
if(getequipcardcnt(.@part) == 0) {
mes "[Wise Old Woman]";
mes "Young one... There are no cards compounded on this item. I can do nothing with it, I'm afraid.";
close;
}
set .@cardcount,getequipcardcnt(.@part);

if (!checkweight(1202,(.@cardcount+1))) {
mes "^3355FFJust a minute!";
mes "I can't offer any of my";
mes "services to you because";
mes "you're carrying too much";
mes "stuff. Put your extra items in";
mes "Kafra Storage and come again~";
close;
}
mes "[Wise Old Woman]";
mes "This item has " + .@cardcount + " cards compounded on it. To perform my magic, I will need " + (200000+(.@cardcount * 25000)) + " zeny, a ^0000FFStar Crumb^000000, and a ^0000FFYellow Gemstone^000000.";
next;
if(select("Very well. Do it.:Nevermind.") == 2) {
mes "[Wise Old Woman]";
mes "Very well. Return at once if you seek my services.";
close;
}
if((zeny < (200000+(.@cardcount * 25000))) || (countitem(1000) < 1) || (countitem(715) < 1)) {
mes "[Wise Old Woman]";
mes "You do not have all the items I require to work my magic, child. Come again when you do.";
close;
}
mes "[Wise Old Woman]";
mes "Before I begin, I must warn you--I may fail. If I do, I may destroy the cards, the item, or both. I do not give refunds. That being said, which is more important to you: The cards, or the item?";
next;
switch(select("I changed my mind about this.:The item.:The cards.")) {
case 1:
mes "[Wise Old Woman]";
mes "Very well. Return at once if you seek my services.";
close;
case 2:
set .@failtype,1;
break;
case 3:
set .@failtype,2;
}
mes "[Wise Old Woman]";
mes "Very well. I shall begin.";
set zeny,zeny - (200000+(.@cardcount * 25000));
delitem 1000,1;
delitem 715,1;

// Replace the constants in the next 3 lines with failure chance values defined in refine_db.txt
// First value = Total failure chance (item and cards destroyed)
// Second value = Partial failure chance (one or the other is destroyed, player decides which one is safe)
// Third value = Harmless failure chance (all that's lost is your investment)

set .@failchance,rand(100);
/*
if(.@failchance < 2) {
next;
failedremovecards .@part,0;
mes "[Wise Old Woman]";
mes "The process was a total failure. I am afraid the item and the cards were destroyed.";
close;
}

if(.@failchance < 8) {
if (.@failtype == 1) {
next;
failedremovecards .@part,1;
mes "[Wise Old Woman]";
mes "While I have managed to remove the cards from the item, they were destroyed in the process. The item, however, is okay.";
close;
}

if (.@failtype == 2) {
next;
failedremovecards .@part,2;
mes "[Wise Old Woman]";
mes "Most unfortunate. I succeeded at removing the cards, but the item itself was destroyed in the process.";
close;
}
}
*/

if(.@failchance < 10) {
next;
failedremovecards .@part,3;
mes "[Wise Old Woman]";
mes "I have failed to remove the cards. Luckily, however, both the item and the cards are still okay.";
close;
}
next;
successremovecards .@part;
mes "[Wise Old Woman]";
mes "The process was a success. Here are your cards and your item. Farewell.";
close;
case 2:
mes "[Wise Old Woman]";
mes "I charge a flat fee of 200000 zeny, plus 25000 zeny for each card I remove from the item. In addition, I need a star crumb and a yellow gemstone to work my magic.";
close;
case 3:
mes "[Wise Old Woman]";
mes "Very well. Return at once if you seek my services.";
close;
}
}

Link to comment
Share on other sites

6 answers to this question

Recommended Posts

Hyvraine Poring

Hyvraine

Posted
  • Group:  Members
  • Topic Count:  17
  • Topics Per Day:  0.00
  • Content Count:  133
  • Reputation:   14
  • Joined:  12/23/11
  • Last Seen:  
Posted

Lol form Vote NPC to Card Removal NPC?

Link to comment
Share on other sites
nanakiwurtz Poring

nanakiwurtz

Posted
  • Group:  Members
  • Topic Count:  81
  • Topics Per Day:  0.02
  • Content Count:  1654
  • Reputation:   583
  • Joined:  08/09/12
  • Last Seen:  
Posted

Vote NPC? How does it works?

And yes, what's the connection between those script? (Vote <---> Card Remover)

Link to comment
Share on other sites
kaiGAMING Poring

kaiGAMING

Posted
  • Group:  Members
  • Topic Count:  22
  • Topics Per Day:  0.01
  • Content Count:  84
  • Reputation:   2
  • Joined:  05/11/12
  • Last Seen:  
Posted

i think he's requesting for vote npc. or kindly fix his card remover script. xD

Link to comment
Share on other sites
Json Poring

Json

Posted
  • Group:  Members
  • Topic Count:  11
  • Topics Per Day:  0.00
  • Content Count:  22
  • Reputation:   1
  • Joined:  08/16/12
  • Last Seen:  
  • Author
Posted

Sorry for my wrong post -.-

 

this one

 

// //=====// /==/ /==/ /==/
// // // /==/ /==/ /=/ /==/
// //=====// /==/ /=/ /==============/ /========/ /==//===/ /==/ /==/
// //=////// /==/ /==//=/ /==/ /==/==/==/==/==/ / / / /==/ /==/ /==/
// // == /==/ /==//=/ /==/ /==/ /==/ /==/ ======/ / /==/ /==/ /==/
// // == /==/ /==/ /=/ /==/ /==/ /==/ /==/ / /===/ / /==/ /==/ /==/
// // == /==/ /==/ /=/ /==/ /==/ /==/ /==/ / /===/ / /==/ /==/=====/==/
// // == /==/ /==/ /=/ /==/ /==/ /==/ /==/ /========/ /==/ /==///////==/
// ================ rAthena Script ====================================================================
//=== Made by Rikimaru
//==================== Information ====================================================================
//==== Daily Reward Script
//================= Version : =========================================================================
//=== V 1.1 Fixed a typo in the Script [ Rikimaru ]
//=== V 1.0 Finished Scripting the Daily Reward Script [ Rikimaru ]
//============== Credits : ============================================================================
//=== Credits to Rikimaru for the Daily Reward Script
//=== rAthena Profile Link : http://rathena.org/board/user/434-rikimaru/
//=====================================================================================================
//*************************************************************************
vip_lounge,228,133,4 script DDRO Vote NPC 911,{
//=========================== Settings ================================================================
set .@rewname$,"^0000FF[ Daily Reward ]^000000";// YOU MAY CHANGE THE NAME OF THE NPC
set .rewardid,672;// CHANGE THE XXXXX TO THE ITEM ID,WHICH THE PLAYER SHOULD GET
set @rewardamount,25;// CHANGE THE XX TO THE AMOUNT OF THE ITEM WHICH YOU WANT THE PLAYER TO GET
//======================= Settings End ================================================================
//*****************************************************************************************************
if((gettime(7))*365*24)+(gettime(8)*24)+gettime(3);
sleep2 .Rest*60000; {
mes .@rewname$;
mes "Hello "+strcharinfo(0)+",I";
mes "POTAPETE NA CORNER !";
mes "MARAMING SALAMAT SA PAG BOTO KING INA MO";
mes "ETO ISAKSAK MO SA BAGA MO GAGO";
next;
switch(select("-Yes,OO SUGAPA AKO!:-No,PAALAM TANGA!:-Cancel")) {
case 1:
if( #quest_done == 1) {
mes .@rewname$;
mes "POTANG INA MO GUSTO MO PA!";
mes" SUGAPA KA PO TANG INA MO ?";
mes "MAG HANTAY K NG BENTE KWATRO ORAS GAGO KANG SUGAPA KA! ";
close;
}
mes .@rewname$;
mes "FUCK K MUNA SAGAD!";
next;
mes .@rewname$;
set #quest_done, 1;
getitem .rewardid,@rewardamount;
mes "MAMATAY KNA ENJOYIN MO ETO!";
set lastTimeTalked,gettimetick(2);
close;
case 2:
mes .@rewname$;
mes "BOBO POTANG INA MO PAALAM!";
close;
case 3:
close;
}
}
mes .@rewname$;
mes "POTANG INA MO GUSTO MO PA!";
mes" SUGAPA KA PO TANG INA MO ?";
mes "MAG HANTAY K NG BENTE KWATRO ORAS GAGO KANG SUGAPA KA! ";
close;

OnInit:
waitingroom "Vote NPC",0;
end;

}

Link to comment
Share on other sites
nanakiwurtz Poring

nanakiwurtz

Posted
  • Group:  Members
  • Topic Count:  81
  • Topics Per Day:  0.02
  • Content Count:  1654
  • Reputation:   583
  • Joined:  08/09/12
  • Last Seen:  
Posted

It's easy, there you go  /no1

prontera,155,180,3    script    Daily Reward    1002,{
    mes "[Daily Reward]";
        if(DailyReward>gettimetick(2)) {
        set .@Time, DailyReward-gettimetick(2);
        set .@SecondLeft,( .@Time % 60 );
        set .@MinuteLeft,( .@Time / 60 % 60 );
        set .@HourLeft,( .@Time / ( 60 * 60 ) % 24 );
        set .@DayLeft,( .@Time / ( 24 * 60 * 60 ) );
        set .@TimeLeft$,(( .@DayLeft )?.@DayLeft+" Day ":"" ) +
(( .@HourLeft )?.@HourLeft+" hours ":"" ) +
(( .@MinuteLeft )?.@MinuteLeft+" minutes ":"" ) +
(( .@SecondLeft )?.@SecondLeft+" seconds":"" );
        mes "You have to wait for ^FF0000"+.@TimeLeft$+"^000000 before you can claim your prize again.";
        close;
        }
    mes "Hello "+strcharinfo(0)+"!";
    mes "Here's your daily reward.";
    getitem 7539,1;
    set DailyReward, gettimetick(2)+43200;
    next;
    mes "[Daily Reward]";
    mes "Talk to me again in the next 12 hours.";
    close;
}
Link to comment
Share on other sites
Json Poring

Json

Posted
  • Group:  Members
  • Topic Count:  11
  • Topics Per Day:  0.00
  • Content Count:  22
  • Reputation:   1
  • Joined:  08/16/12
  • Last Seen:  
  • Author
Posted

Thankyoou its working !

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing
×
×
  • Create New...