Bio Lab card Trader =)

[Eucharist96]

sorry for this noob script =) hope you like it

Lhz Card Trader it Just like a normal Quest Npc

it will exchange your Pods For bio Lab Cards

Example:

High Wizard Card = 500Pods =D

Biolab.txt

Edited December 27, 2011 by Eucharist1

[Emistry]

Well..actually there is some minor mistake on item given there...

Both High Priest / High Wizard Card Option giving the same things..

getitem 4365,1;

Anyway, just some advise ~

You can reduce those script length...make it compact....

there is alot lines are repeated......and hence make the script look's very long....

you can make use of array to enhance your scripts....

it is just a simple script work like this

provide X give Y

For Example :

prontera,164,175,4 script Biolab Card Trader 1637,{
set .ItemID,7179;
setarray .CardList[0],4357,4359,4361,4363,4365,4367;
setarray .Credits[0],100,200,300,400,500,600;

mes "[Ms.Biolab]";
mes "im Here To transmute the Card in BioLab Monster";
mes "I Can Give you What you want in BioLab Monster with low prize";
for( set .@i,0; .@i < getarraysize( .CardList ); set .@i,.@i + 1 ){
set .@Menu$,.@Menu$ + "^0000FF"+getitemname( .CardList[.@i] )+" - ^FF0000"+.Credits[.@i]+" "+getitemname( .ItemID )+"^000000:";
}
next;
set .@i,select( .@Menu$ ) - 1;
mes "You selected ^0000FF"+getitemname( .CardList[.@i] )+"^000000.";
mes "Cost - ^FF0000"+.Credits[.@i]+" "+getitemname( .ItemID )+"^000000";
next;
if( select("Exchange:Cancel") == 1 ){
if( countitem( .ItemID ) < .Credits[.@i] ){
 mes "You didnt Have Enough "+getitemname( .ItemID );
}else{
 delitem .ItemID,.Credits[.@i];
 getitem .CardList[.@i],1;
 mes "Gained 1 "+getitemname( .CardList[.@i] );
}
}
close;
}

[Eucharist96]

Thanks Emistry Still im noob at scripting =(( newbie

[stydianx]

is the link updated, cause i would like to use your script