zeny to cash point

[themon 63]

zenytocash.txt - exchange 1000 zeny for 1 cash point and it will also give you 1 free kafra point for every 10 cash point you buy or exchange

 

please make this compatible with hercules emulator because when I made this im still using rathena emulator

zenytocash.txtFetching info...

[Mumbles 193]

Give this a try: http://herc.ws/board/topic/2780-utility-point-exchanger/

[Dastgir 1246]

Well the script should be compatible with hercules, Just check if there's any error(I don't think there will be any error if previously there was no error).

[themon 63]

I hope others using hercules emulator can try this.

the error I encounter is I cant check my available cash point and kafra point not like before

[quesoph 105]

Try this. I shortened it and replaced global temp variables. I haven't test it but it should work fine.

 

 

  Reveal hidden contents

 

jazeera,151,111,5  script  Cash Exchanger  894,{  mes "[ ^0000ff" +strnpcinfo(1)+"^000000 ]",    "^0000FF1000^000000z is equals to ^FF00001^000000 Cash Point",    "Exchange ^0000FF10^000000 Cash Points ",    "and get free ^FF00001^000000 Kafra Point";  next;switch ( select ( "^FF0000Exchange^000000", "^0000FFCheck Cash Point^000000", "^00FF00Quit^000000" ) ) {  case 1:    mes "[ ^0000ff" + strnpcinfo(1) +"^000000 ]",      "Available Cash Points to Exchange: ^0000FF" + Zeny / 1000 + "^000000"," ",      "How Many Cash Points you want to Exchange?";    input .@ExchangeEC;    set .@ttalEC, ( .@ExchangeEC * 1000 );    if ( Zeny < .@ttalEC || .@ExchangeEC == 0 ) {      mes "Sorry, Invalid Input.";      close;    }    mes "That will be ^0000FF" + .@ttalEC + "^000000z!";    if ( select ( "^FF3355Exchange^000000", "Ive change my mind^000000" ) == 2 ) {        mes "Thanks you ^0000FF" + strcharinfo(0) + "^000000!",          "Come Again!";        close;    }      set #CASHPOINTS, #CASHPOINTS + .@ExchangeEC;      set #KAFRAPOINTS, #KAFRAPOINTS + ( .@ExchangeEC / 10 );      set Zeny, Zeny - .@ttalEC;      callsub CheckCashKaf;  case 2: callsub CheckCashKaf;  case 3: close;}CheckCashKaf: next;  mes "Your Cash Point: ^0000FF" + #CASHPOINTS + "^000000 ","and Kafra Point: ^0000FF" +#KAFRAPOINTS+ "^000000";  close;OnInit:  waitingroom "Zeny To Cash point Exchange",0;  end;}

jazeera,151,111,5    script    Cash Exchanger    894,{    mes "[ ^0000ff" +strnpcinfo(1)+"^000000 ]",        "^0000FF1000^000000z is equals to ^FF00001^000000 Cash Point",        "Exchange ^0000FF10^000000 Cash Points ",        "and get free ^FF00001^000000 Kafra Point";    next;switch ( select ( "^FF0000Exchange^000000", "^0000FFCheck Cash Point^000000", "^00FF00Quit^000000" ) ) {    case 1:        mes "[ ^0000ff" + strnpcinfo(1) +"^000000 ]",            "Available Cash Points to Exchange: ^0000FF" + Zeny / 1000 + "^000000"," ",            "How Many Cash Points you want to Exchange?";        input .@ExchangeEC;        set .@ttalEC, ( .@ExchangeEC * 1000 );        if ( Zeny < .@ttalEC || .@ExchangeEC == 0 ) {            mes "Sorry, Invalid Input.";            close;        }        mes "That will be ^0000FF" + .@ttalEC + "^000000z!";        if ( select ( "^FF3355Exchange^000000", "Ive change my mind^000000" ) == 2 ) {                mes "Thanks you ^0000FF" + strcharinfo(0) + "^000000!",                    "Come Again!";                close;        }            set #CASHPOINTS, #CASHPOINTS + .@ExchangeEC;            set #KAFRAPOINTS, #KAFRAPOINTS + ( .@ExchangeEC / 10 );            set Zeny, Zeny - .@ttalEC;            callsub CheckCashKaf;    case 2: callsub CheckCashKaf;    case 3: close;}CheckCashKaf: next;    mes "Your Cash Point: ^0000FF" + #CASHPOINTS + "^000000 ","and Kafra Point: ^0000FF" +#KAFRAPOINTS+ "^000000";    close;OnInit:    waitingroom "Zeny To Cash point Exchange",0;    end;}

 

 

Edited November 3, 2013 by quesoph