Jump to content
  • 0

Test this npc please..

truefg

Asked by truefg,

 Share

Question

truefg Poring

truefg

Posted
Posted (edited)

Because when i try this!!.. it doesn't work.. don't know why!!! emm.. the fallen wings.. have an error i guess.. check please!!

//===== rAthena/eAthena Script =======================================
//= <All in one Wings>
//===== By: ==================================================
//= <Franyerii Graph>
//===== Current Version: =====================================
//= <Fine Quality Model>
//===== Compatible With: =====================================
//= <All Kind of rAthena/eAthena>
//===== Description: =========================================
//= <Wings Quest Script>
//===== Additional Comments: =================================
//= <If you are using this script, please give all the credits to Franyerii Graph>
//============================================================
quiz_01,54,187,4 script Wings Quest 446,{
mes "[^0000FFClaudia^000000]";
mes "Hello, and welcome to my world";
mes "Which wing would you like to do?";
menu "White B. Wings.",R_white,"Black B. Wings.",R_black,"Angel Wings.",R_angel,"Fallen Wings.",R_fallen,"Angeling Wings.",R_angeling,"Deviling Wings.",R_deviling,"Nothing.",R_no;

R_white:
next;
mes "[^0000FFClaudia^000000]";
mes "First, the White B. Wings provide you";
mes "~^0066FF +8 Agi.^000000";
mes "~^990000 MaxSp + 2%.^000000";
mes "~^990000Increases the speed movement by 10%.^000000";
mes "Would you like to continue?";
next;
menu "Yes",R_yes,"No, Thanks!",R_no;

R_angel:
next;
mes "[^0000FFClaudia^000000]";
mes "The Angel Wings are very usefull";
mes "First, the Angel Wings provide you";
mes "~^00ffff +1 Agi.^000000";
mes "~^0000ff +1 Dex.^000000";
mes "Would you like to continue?";
next;
menu "Yes", R_yes3,"No, Thanks!", R_no;
R_fallen:
next;
mes "[^0000FFClaudia^000000]";
mes "The ^00aa00Fallen Wing^000000 are very usefull.";
mes "First, the Fallen Wings provides you.";
mes "~^0066FF +2 Agi.^000000.";
mes "~^00007fDef +1^000000.";
mes "Would You like to continue?";
menu "Yes",R_yes4,"No Thanks!",R_no;

R_angeling:
next;
mes "[^0000FFClaudia^000000]";
mes "This little wings give you";
mes "^0055ff +1 Agi^000000.";
mes "^00aa00 Def +1^000000.";
mes "Would you like to continue?";
menu "Yes",R_yes5,"No, Thanks!",R_no;

R_deviling:
next;
mes "[^0000FFClaudia^000000]";
mes "The Devil Wings provides you";
mes "+1 Agi";
mes "5% To Inflict Blindness On monsters";
mes "Would you like to continue?";
next;
menu "Yes",R_yes6,"No, Thanks!",R_no;

R_yes6:
next;
mes "[^0000FFClaudia^000000]";
mes "This is what you need";
mes "^ff0000 100 Little Evil Horn^000000.";
mes "^ff0000 20 Dragon Scale^000000.";
mes "^ff0000 20 Evil Horn^000000.";
mes "^ff0000 20 Little Evil Wing^000000.";
mes "^ff0000 20 Wings of Dragonfly^000000.";
mes "And finally 10m Zennies";
next;
if (countitem(1038)<100)goto broke;
if (countitem(1036)<20)goto broke;
if (Countitem(7064)<20)goto broke;
if (Countitem(946)<50)goto broke;
if (countitem(1039)<20)goto broke;
if (zeny <10000000)goto broke;
next;
delitem 1038,100;
delitem 1036,20;
delitem 923,20;
delitem 7064,20;
delitem 1039,20;
set Zeny, zeny -10000000;
getitem 8001,1;
next;
mes "Quest was done";
mes "Enjoy You wings";
close;


R_yes5:
next;
mes "[^0000FFClaudia^000000]";
mes "This is what you need";
mes "^ff0000 50 moth wings^000000.";
mes "^ff0000 35 sharp leaf^000000.";
mes "^ff0000 50 snail shell^000000.";
mes "And finally 10 Zennies";
next;
if (countitem(1058)<50)goto broke;
if (countitem(7100)<35)goto broke;
if (Countitem(946)<50)goto broke;
if (zeny <10000000)goto broke;
next;
delitem 1058,50;
delitem 7100,35;
delitem 946,50;
set Zeny, zeny -10000000;
getitem 8004,1;
next;
mes "Quest was done";
mes "Enjoy You wings";
close;

R_yes4:
next;
mes "[^0000FFClaudia^000000]";
mes "This is what you need";
mes "^0000ff 5 frozen rose^000000.";
mes "^0000ff 5 harpy feather^000000.";
mes "^0000ff 25 peco peco feather^000000.";
mes "^0000ff 25 cloud crumb^000000";
mes "And finally 10m Zennies";
next;
if (countitem(749)<5)goto broke;
if (countitem(7115)<5)goto broke;
if (Countitem(7101)<25)goto broke;
if (countitem(7162)<25)goto broke;
if (zeny<10000000)goto broke;
next;
delitem 749,5;
delitem 7115,20;
delitem 7101,25;
delitem 7162,25;
set Zeny, zeny-10000000;
getitem 8003,1;
next;
mes "Quest was done";
mes "Enjoy You wings";
close;
R_yes3:
next;
mes "[^0000FFClaudia^000000]";
mes "This is what you need";
mes "^ff0000 20 False Angel Wing^000000.";
mes "^ff0000 20 Soft Feather^000000.";
mes "^ff0000 30 Feather of Birds^000000.";
mes "^ff0000 25 Flame Heart^000000.";
mes "And finally 10m Zennies";
mes "Would you like to continue?";
next;
if (countitem(7104)<20)goto broke;
if (countitem(7063)<20)goto broke;
if (Countitem(916)<30)goto broke;
if (countitem(994)<25)goto broke;
if (zeny <10000000)goto broke;
next;
delitem 7104,20;
delitem 7063,20;
delitem 916,30;
delitem 994,25;
set Zeny, zeny -10000000;
getitem 8001,1;
next;
mes "Quest was done";
mes "Enjoy You wings";
close;
R_yes:
next;
mes "[^0000FFClaudia^000000]";
mes "This is what you need";
mes "~ ^990099 100 Giant Butterfly Wings^000000.";
mes "~ ^990099 50 Cyfar^000000.";
mes "~ ^990099 20 Soft Feather^000000.";
mes "~ ^990099 10 White Dyestuff^000000.";
mes "~ ^990099 5 Rough Wind^000000.";
mes "~ ^990099 1 Necklace of Wisdom^000000.";
mes "~ ^990099 1 Angeling Card^000000";
mes "~ ^990099 50 Gold^000000.";
mes "And finally ~ ^990099 10m^000000.";
next;
if (countitem(7168)<100)goto broke;
if (countitem(7053)<50)goto broke;
if (countitem(7063)<20)goto broke;
if (Countitem(982)<10)goto broke;
if (countitem(996)<5)goto broke;
if (countitem(4054)<1)goto broke;
if (countitem(969)<50)goto broke;
if (zeny <10000000)goto broke;
next;
delitem 7168,100;
delitem 7053,50;
delitem 7063,20;
delitem 982,10;
delitem 996,5;
delitem 4054,1;
delitem 969,50;
set Zeny, zeny -10000000;
getitem 8010,1;
next;
mes "Quest was done";
mes "Enjoy You wings";
close;
R_no:
next;
mes "[^0000FFTherma^000000]";
mes "Have A Nice Day";
close;

R_black:
next;
mes "[^0000FFClaudia^000000]";
mes "First, the Black B. Wings provide you";
mes "~ ^0066FF+8 Agi.^000000";
mes "~ ^0066FF+1 Str.^000000";
mes "~ ^990000Increases the speed movement by 10%.^000000";
mes "Would you like to continue?";
next;
menu "Yes",R_yes2,"No, Thanks!",R_no;

R_yes2:
next;
mes "[^0000FFClaudia^000000]";
mes "This is what you need^000000";
mes "~ ^990099 100 Giant Butterfly Wings^000000";
mes "~ ^990099 75 Moth Wings^000000";
mes "~ ^990099 50 Cyfar^000000";
mes "~ ^990099 10 Black Dyestuff^000000";
mes "~ ^990099 5 Rough Wind^000000";
mes "~ ^990099 1 Necklace of Oblivion^000000";
mes "~ ^990099 1 Deviling Card^000000";
mes "And finally ^99009910m Zenys^000000";
next;
if (countitem(7168)<100)goto broke;
if (countitem(1058)<75)goto broke;
if (countitem(7053)<50)goto broke;
if (Countitem(983)<10)goto broke;
if (countitem(996)<5)goto broke;
if (countitem(1008)<1)goto broke;
if (countitem(4174)<1)goto broke;
if (zeny <10000000)goto broke;
next;
delitem 7168,100;
delitem 1058,75;
delitem 7053,50;
delitem 983,10;
delitem 996,5;
delitem 1008,1;
delitem 4174,1;
set Zeny, zeny -10000000;
getitem 8011,1;
next;
mes "Quest was done";
mes "Enjoy You wings";
close;

broke:
next;
mes "[^0000FFTherma^000000]";
mes "You missing some items, Please check all of them and come back again!";
close;
}

Edited by AnnieRuru
use codebox if the script > 10 lines

5 answers to this question

Recommended Posts

Capuche Poporing

Capuche

Posted
Posted

In 

R_yes6:
next;
mes "[^0000FFClaudia^000000]";
mes "This is what you need";
mes "^ff0000 100 Little Evil Horn^000000.";
mes "^ff0000 20 Dragon Scale^000000.";
mes "^ff0000 20 Evil Horn^000000.";
mes "^ff0000 20 Little Evil Wing^000000.";
mes "^ff0000 20 Wings of Dragonfly^000000.";
mes "And finally 10m Zennies";
next;
if (countitem(1038)<100)goto broke;
if (countitem(1036)<20)goto broke;
if (Countitem(7064)<20)goto broke;
if (Countitem(946)<50)goto broke;
if (countitem(1039)<20)goto broke;
if (zeny <10000000)goto broke;
next;
delitem 1038,100;
delitem 1036,20;
delitem 923,20;

You have an error

if (Countitem(946)<50)goto broke;


delitem 923,20;

You haven't the same ID in count and delitem

  • Upvote 1
truefg Poring

truefg

Posted
  • Author
Posted (edited)

In 

R_yes6:
next;
mes "[^0000FFClaudia^000000]";
mes "This is what you need";
mes "^ff0000 100 Little Evil Horn^000000.";
mes "^ff0000 20 Dragon Scale^000000.";
mes "^ff0000 20 Evil Horn^000000.";
mes "^ff0000 20 Little Evil Wing^000000.";
mes "^ff0000 20 Wings of Dragonfly^000000.";
mes "And finally 10m Zennies";
next;
if (countitem(1038)<100)goto broke;
if (countitem(1036)<20)goto broke;
if (Countitem(7064)<20)goto broke;
if (Countitem(946)<50)goto broke;
if (countitem(1039)<20)goto broke;
if (zeny <10000000)goto broke;
next;
delitem 1038,100;
delitem 1036,20;
delitem 923,20;

You have an error

if (Countitem(946)<50)goto broke;


delitem 923,20;

You haven't the same ID in count and delitem

Thanks +1

Edited by truefg
Capuche Poporing

Capuche

Posted
Posted

I don't know why... maybe it's because I ate some bean ? Whatever, I found another error...

mes "This is what you need";
mes "~ ^990099 100 Giant Butterfly Wings^000000.";
mes "~ ^990099 50 Cyfar^000000.";
mes "~ ^990099 20 Soft Feather^000000.";
mes "~ ^990099 10 White Dyestuff^000000.";
mes "~ ^990099 5 Rough Wind^000000.";
mes "~ ^990099 1 Necklace of Wisdom^000000.";
mes "~ ^990099 1 Angeling Card^000000";
mes "~ ^990099 50 Gold^000000.";
mes "And finally ~ ^990099 10m^000000.";
next;
if (countitem(7168)<100)goto broke;
if (countitem(7053)<50)goto broke;
if (countitem(7063)<20)goto broke;
if (Countitem(982)<10)goto broke;
if (countitem(996)<5)goto broke;
if (countitem(4054)<1)goto broke;
if (countitem(969)<50)goto broke;
if (zeny <10000000)goto broke;
next;
delitem 7168,100;
delitem 7053,50;
delitem 7063,20;
delitem 982,10;
delitem 996,5;
delitem 4054,1;
delitem 969,50;

You forgot countitem and delitem of Necklace of Wisdom

R_yes4:
   next;
   mes "[^0000FFClaudia^000000]";
   mes "This is what you need";
   mes "^0000ff 5 frozen rose^000000.";
   mes "^0000ff 5 harpy feather^000000.";
   mes "^0000ff 25 peco peco feather^000000.";
   mes "^0000ff 25 cloud crumb^000000";
   mes "And finally 10m Zennies";
   next;
   if (countitem(749)<5)goto broke;
   if (countitem(7115)<5)goto broke;
   if (Countitem(7101)<25)goto broke;
   if (countitem(7162)<25)goto broke;
   if (zeny<10000000)goto broke;
   next;
   delitem 749,5;
   delitem 7115,20;
   delitem 7101,25;
   delitem 7162,25;

You don't check/delete the same number of item :

   if (countitem(7115)<5)goto broke;


   delitem 7115,20;

  • Upvote 1

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

  • Recently Browsing   0 members

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