viewing paste Unknown #14288 | 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 67 68 69 70
/7Script by Normynator
 
-       script  Gamemaster      -1,{
 
OnWhisperGlobal:
        if(getgmlevel() >= 10){
                if (@whispervar0$ == "Start"){
                        setarray .@in$[0], "Yggdrasil Berry","Yggdrasil Seed","Apple";
                        mes "List of Available Items: ";
                        for(.@i = 0; .@i < getarraysize(.@in$); .@i++){
                                mes .@in$[.@i];
                        }
                        next;
                        mes "You can choose 3 items.";
                        mes "How many do you need?";
                        input .@count;
                        if(.@count > 3){ next; mes "Max 3!!"; close;
                        }else
                        next;
                        mes "Which items do you want?";
                        mes "How many do you want?";
                        mes "List of Available Items: ";
                        for(.@i = 0; .@i < getarraysize(.@in$); .@i++){
                                mes .@in$[.@i];
                        }
                        for(.@i = 0; .@i < .@count; .@i++){
                                set .@cheat, 0;
                                input .@item$[.@i];
                                input .@amount[.@i];
                                for(.@a = 0; .@a < getarraysize(.@in$); .@a++){
                                        //dispbottom "a";
                                        //dispbottom .@item$[.@i];
                                        if(.@item$[.@i] == .@in$[.@a]){
                                                set .@cheat, 1;
                                        }
                                }
                                if(.@cheat == 0){
                                        next;
                                        mes "Error!";
                                        close;
                                }
                                //dispbottom .@cheat;
                        }
                        next;
                        mes "Whats the name of the player?";
                        input .@name$;
                        next;
                        mes "Your Input:";
                        for(.@i = 0; .@i < .@count; .@i++){
                                mes .@amount[.@i] + " " + .@item$[.@i];
                        }
                        mes "Name: " + .@name$;
                        mes "";
                        mes "Is your input correct?";
                       
                       
                        if(select("Yes:No") -1) end;
                        next;
                        set .@account, getcharid(3, .@name$);
                        if(isloggedin(.@account) == 0){
                                mes "Player is offline";
                        }else
                        mes "Player is online and got the Item(s)";
                        for(.@i = 0; .@i < .@count; .@i++){
                                getitem .@item$[.@i], .@amount[.@i], .@account;
                        }
                        close;
                }
        }
}
Viewed 336 times, submitted by Normynator.