Jump to content

Utility: Berry Exchanger


eJay

Recommended Posts


  • Group:  Members
  • Topic Count:  80
  • Topics Per Day:  0.02
  • Content Count:  325
  • Reputation:   76
  • Joined:  03/22/12
  • Last Seen:  

File Name: Berry Exchanger

File Submitter: eJay

File Submitted: 05 Jan 2013

File Category: Utilities

Content Author: Jae

[ 400 Yggdrasil Berry = 1 Coupon ]

[ 1 Coupon = 400 Yggdrasil Berry ]

Original Scripter: [ Jae ]

Recoded by [ eJay ]

Click here to download this file

Link to comment
Share on other sites

  • 5 months later...

  • Group:  Members
  • Topic Count:  105
  • Topics Per Day:  0.02
  • Content Count:  390
  • Reputation:   27
  • Joined:  07/12/12
  • Last Seen:  

File Name: Berry Exchanger

File Submitter: eJay

File Submitted: 05 Jan 2013

File Category: Utilities

Content Author: Jae

 

[ 400 Yggdrasil Berry = 1 Coupon ]

[ 1 Coupon = 400 Yggdrasil Berry ]

Original Scripter: [ Jae ]

Recoded by [ eJay ]

Click here to download this file

 

 

hi what if i only want the NPC to convert 400 BERRY into 1 coupon?

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  80
  • Topics Per Day:  0.02
  • Content Count:  325
  • Reputation:   76
  • Joined:  03/22/12
  • Last Seen:  

 

File Name: Berry Exchanger

File Submitter: eJay

File Submitted: 05 Jan 2013

File Category: Utilities

Content Author: Jae

 

[ 400 Yggdrasil Berry = 1 Coupon ]

[ 1 Coupon = 400 Yggdrasil Berry ]

Original Scripter: [ Jae ]

Recoded by [ eJay ]

Click here to download this file

 

 

hi what if i only want the NPC to convert 400 BERRY into 1 coupon?

 

poring_w02,83,101,5    script    Berry Exchanger    719,{
    set @name$,"[^FF0000Berry Exchanger^000000]";
    mes @name$;
    mes "What do you want to do?";
    next;
    switch(select("Information","Convert")) {
        case 1:
            mes @name$;
            mes "I can convert your Coupon/s into Berry and vice versa.";
            mes "1 Coupon = 400 Yggdrasil Berry";
            close;
        case 2:
            switch(select("Berry to Coupon")) {
                case 1:
                    if (checkweight(7037,1) == 0 ) goto overWeight;
                    if (countitem(607) < 400) goto noBerry;
                    delitem 607,400;
                    getitem 7037,1;
                    mes @name$;
                    mes "There you go. Hope to see you again!";
                    close;
    }
            }
            end;
noBerry:
    mes @name$;
    mes "I'm Sorry but you don't have enough berries.";
    close;
 
overWeight:
    mes @name$;
    mes "Sorry you're overweight.";
    close;
}
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  105
  • Topics Per Day:  0.02
  • Content Count:  390
  • Reputation:   27
  • Joined:  07/12/12
  • Last Seen:  

 

 

File Name: Berry Exchanger

File Submitter: eJay

File Submitted: 05 Jan 2013

File Category: Utilities

Content Author: Jae

 

[ 400 Yggdrasil Berry = 1 Coupon ]

[ 1 Coupon = 400 Yggdrasil Berry ]

Original Scripter: [ Jae ]

Recoded by [ eJay ]

Click here to download this file

 

 

hi what if i only want the NPC to convert 400 BERRY into 1 coupon?

 

poring_w02,83,101,5    script    Berry Exchanger    719,{
    set @name$,"[^FF0000Berry Exchanger^000000]";
    mes @name$;
    mes "What do you want to do?";
    next;
    switch(select("Information","Convert")) {
        case 1:
            mes @name$;
            mes "I can convert your Coupon/s into Berry and vice versa.";
            mes "1 Coupon = 400 Yggdrasil Berry";
            close;
        case 2:
            switch(select("Berry to Coupon")) {
                case 1:
                    if (checkweight(7037,1) == 0 ) goto overWeight;
                    if (countitem(607) < 400) goto noBerry;
                    delitem 607,400;
                    getitem 7037,1;
                    mes @name$;
                    mes "There you go. Hope to see you again!";
                    close;
    }
            }
            end;
noBerry:
    mes @name$;
    mes "I'm Sorry but you don't have enough berries.";
    close;
 
overWeight:
    mes @name$;
    mes "Sorry you're overweight.";
    close;
}

 

 

 

- what if i want to add another items? for example.

 

400 yggbery = 1 coupon

300 pizza = 1 coupon

500 deadbranch = 1coupon.

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
Reply to this topic...

×   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.

×
×
  • Create New...