viewing paste Unknown #5634 | 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
mes "[ Room Helper ]";
if(countitem(604)<100) {
mes "You must have atleast 100 Dead Branches to make one Bloody Branch.";close;
}
callsub calc_sub;
set .@oi,@i;
mes "I'm able to make ^FF0000"+@i+"^000000 Bloody Branches.";
mes " ";
mes "How many would you like to exchange?";
set .@o,select("None","All","I Want to type it !");
if(.@o==1) close;
if(.@o==2) {
    callsub calc_sub;
    if(@i!=.@oi)
        goto e;
    next;
    mes "[ Room Helper ]";
    mes "Thank you !";
    if(countitem(604)<@i*100)
        goto e;
    delitem 604,@i*100;//Dead Branch
    getitem 12103,@i;//Bloody Branch
    close;
    } else {
    callsub calc_sub;
    if(@i!=.@oi)
        goto e;
    next;
    mes "[ Room Helper ]";
    input @inp;
    if(@inp<0||@inp>@i)
        goto e;
    mes "Thank you !";
    delitem 604,@inp*100;//Dead Branch
    getitem 12103,@inp;//Bloody Branch
    close;
    }
e:
    mes "Something went wrong...";
    close;
 
calc_sub:
    set @i,countitem(604)/100;
    return @i;
Viewed 573 times, submitted by Guest.