Jump to content

Question

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;
}
}

6 answers to this question

Recommended Posts

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;

}

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;
}

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.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...