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 258 times, submitted by unknown.