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 636 times, submitted by Normynator.