viewing paste LFBroadcaster | 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 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116
/*      Looking for Party/Member/Leecher Script
        Created by: Aeromesi
        Version 1.0
*/
prontera,150,151,4      script  P-M-L Broadcaster       89,{
        mes "[^FF0000P-M-L Broadcaster^000000]";
        mes "What would you like to do?";
        next;
switch(select("Search for Party Members:Inquire Party:Look for Leecher")) {
 
case 1:
mes .bcastn$;
callfunc ("LFPM_MENU");
 
case 2:
mes .bcastn$;
callfunc ("INQ_PARTY");
 
case 3:
mes .bcastn$;
callfunc ("L_LEECH");
 
}
}
function        script  LFPM_MENU       {
        setarray .@classlist$[0],"Lord Knight","High Priest","High Wizard","Whitesmith","Sniper","Assassin Cross","Paladin","Champion","Professor","Stalker","Creator","Clown","Gypsy";
        mes .bcastn$ = "[^FF0000P-M-L Broadcaster^000000]";
        mes "Input the Character Level you would recommend to hire in your Party.";
        input .@mMin,1,99-10;
        .@mMax = .@mMin + 10;
        next;
        mes .bcastn$;
        mes "So you chose ^FF0000"+.@mMin+"^000000 - ^0000FF"+.@mMax+"^000000 as the Level Gap.";
        mes "Is this correct?";
        next;
        switch(select("Yes:No")) {
case 1:
        mes .bcastn$;
        mes "Now which class are you looking to hire in your party?";
        next;
switch(select(implode(.@classlist$,":"))) {
                default:
                .@job = @menu - 1;
        mes .bcastn$;
        mes "Alright, you chose ^0000FF"+ .@classlist$[.@job] + "^000000.";
        next;
        mes .bcastn$;
        mes "Broadcasted message will appear as:";
        mes "^006400"+strcharinfo(0)+"^000000: Looking for party Members with Level ^FF0000"+.@mMin+"^000000 - ^0000FF"+.@mMax+"^000000 Job needed: "+ .@classlist$[.@job] +".";
        mes " ";
        mes "Is this okay?";
        next;
switch(select("Yes:No")) {
case 1:
        mes .bcastn$;
        mes "I will now broadcast your message.";
        sleep2 2000;
        announce strcharinfo(0)+": Looking for Party Members with Level "+.@mMin+" - "+.@mMax+" Job needed: "+ .@classlist$[.@job] +".",0;
        close2;
        end;
case 2:
        mes .bcastn$;
        mes "Alright, re-enter your details.";
        next;
        callfunc ("LFPM_MENU");
}
}
case 2:
        mes .bcastn$;
        mes "Re-input your level gap.";
        next;
        callfunc ("LFPM_MENU");
}
}
function        script  INQ_PARTY       {
 
.@CharLVL = BaseLevel;
 
        mes .bcastn$ = "[^FF0000P-M-L Broadcaster^000000]";
        mes "Would you like to Inquire for a Party?";
        next;
switch(select("Yes:No")) {
case 1:
        mes .bcastn$;
        mes "I will now broadcast your Inquiry for a Party.";
        sleep2 2000;
        announce strcharinfo(0)+" shouts: Looking for Party, my job is "+jobname(Class)+" and I'm Level "+.@CharLVL+".",0;
 
case 2:
        mes .bcastn$;
        mes "Alright, come again if you changed your mind!";
}
}
function        script  L_LEECH {
 
.@LCharLVL = BaseLevel;
 
        mes .bcastn$ = "[^FF0000P-M-L Broadcaster^000000]";
        mes "Would you like to Look for a Leecher?";
        next;
switch(select("Yes:No")) {
case 1:
        mes .bcastn$;
        mes "I will now broadcast that you need a Leecher.";
        sleep2 2000;
        announce strcharinfo(0)+" shouts: Looking for Leecher, my job is "+jobname(Class)+" and I'm Level "+.@LCharLVL+".",0;
 
case 2:
        mes .bcastn$;
        mes "Alright, come again if you changed your mind!";
}
}
Viewed 381 times, submitted by unknown.