viewing paste Unknown #13523 | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66
prontera.gat,172,172,3  script  Potion Creation 800,{
 
switch(select("Poison Bottle:White Potion:Blue Potion:Condensed White Potion:Bottle Grenade:Acid Bottle:Glistening Coat")) 
{
case 1: callsub Create1,678,7033,657,713,937,939,952,972;
//callsub <label>,<potion>,<book>,<items>,<required>;
case 2: callsub Create2,504,7144,509,1093,7134;
case 3: callsub Create2,505,7144,510,911,1093,7134;
case 4: callsub Create2,547,7133,504,1061,1092,7134;
case 5: callsub Create2,7135,7128,713,970,1057,7134;
case 6: callsub Create2,7136,7129,713,929,7134;
case 7: callsub Create2,7139,7132,7134,713,950,970,1044;
Create1:
mes "[Name]";
mes "How many "+(getitemname(getarg(0)))+" do you want to make?";
mes "You may enter 0 if you wish to cancel.";
input @input;
if (@input==0) {
next;
mes "[Name]";
mes "Alright, I've cancelled the potion creation.";
close;
} else {
next; mes "[Name]";
for (.@i=1; .@i<getargcount(); .@i++){
    if (countitem(getarg(.@i))<@input){@error = 1;}
    mes "You Need ["+countitem(getarg(.@i))+"/"+@input+"] "+getitemname(getarg(.@i));
    }
if (@error=!1) mes "Either return with the requested amount, or try again with a different amount request."; close;}
next;
mes "[Name]";
mes "Thanks";
for (.@i=1; .@i<getargcount(); .@i++){
delitem getarg(.@i),@input; }
getitem getarg(0),@input;
close;
Create2:
if (countitem(getarg(1)) < 1){
    mes "[Name]";
    mes "You don't even have "+(getitemname(getarg(1)))+"!";
    close;
    }mes "[Name]";
mes "How many "+(getitemname(getarg(0)))+" do you want to make?";
mes "You may enter 0 if you wish to cancel.";
input @input;
if (@input==0) {
next;
mes "[Name]";
mes "Alright, I've cancelled the potion creation.";
close;
} else {
next; mes "[Name]";
for (.@i=2; .@i<getargcount(); .@i++){
    if (countitem(getarg(.@i))<@input){@error = 1;}
    mes "You Need ["+countitem(getarg(.@i))+"/"+@input+"] "+getitemname(getarg(.@i));
    }
if (@error=!1) mes "Either return with the requested amount, or try again with a different amount request."; close;}
next;
mes "[Name]";
mes "Thanks";
for (.@i=2; .@i<getargcount(); .@i++){
delitem getarg(.@i),@input; }
getitem getarg(0),@input;
close;
}
}
Viewed 763 times, submitted by Guest.