viewing paste Unknown #21606 | C

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 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246
//===== Hercules Script ======================================
//= Reset NPC
//===== By: ==================================================
//= Hercules Dev Team
//===== Current Version: =====================================
//= 1.3
//===== Description: =========================================
//= Resets skills, stats, or both.
//===== Additional Comments: =================================
//= 1.0 First Version
//= 1.1 Optimized for the greater good. [Kisuka]
//= 1.2 Cleaning [Euphy]
//= 1.3 All statuses removed upon skill reset. [Euphy]4_F_JP_CYNTHIA
//============================================================
 
prontera,133,189,7      script  Sherin The Build Girl   4_F_JP_CYNTHIA,{
 
// Mode of NPC
// 1 = Switch & Save Status Build
// 2 = Reset Status
// 4 = Reset Skills
// 7 = All of Above [ 1+2+4 = 7 ]
set .BMMode,7;
 
// How Many Slots available to Save Status Builds.
set .MaxSlots,2;
 
// Enable Stats Slot Rename
set .StatRename,1;
 
setarray .BMCosts[1],
                        500000,         // Switch Builds Cost
                        500000,         // Save Build Cost
                        500000,         // Reset Status Cost
                        500000;         // Reset Skills Cost
                       
if( BaseLevel <= 70 ) {
setarray .BMCosts[1],
                        50000,          // Switch Builds Cost
                        50000,          // Save Build Cost
                        50000,          // Reset Status Cost
                        50000;          // Reset Skills Cost
}
                               
while(1){
mes "[Sherin The Build Girl]";
mes callfunc("getMes",$@resetnpc,0);
mes callfunc("getMes",$@resetnpc,1);
mes " ";
mes callfunc("getMes",$@resetnpc,4) + ""+.BMCosts[ @menu ]+"" + callfunc("getMes",$@resetnpc,5);
next;
 
switch( select( ( .BMMode & 1 )?"^0000FFSwitch Status^000000":"",
                                ( .BMMode & 1 )?"^0000FFSave Status^000000":"",
                                ( .BMMode & 2 )?"^0000FFReset Status^000000":"",       
                                ( .BMMode & 4 )?"^0000FFReset Skills^000000":"")){
        case 1:
                if( Zeny < .BMCosts[ @menu ] ){
                        mes "[Sherin The Build Girl]";
                        mes callfunc("getMes",$@resetnpc,2) + ""+.BMCosts[ @menu ]+"" + callfunc("getMes",$@resetnpc,3);
                        close;
                        break;
                        }
                mes "[Sherin The Build Girl]";
                mes callfunc("getMes",$@resetnpc,15);
                if (select(callfunc("getMes",$@resetnpc,12)+":"+callfunc("getMes",$@resetnpc,13)) == 2) {
                next;
                mes "[Sherin The Build Girl]";
                mes callfunc("getMes",$@resetnpc,14);
                close;
                }
                next;
                mes "[Sherin The Build Girl]";
                mes callfunc("getMes",$@resetnpc,4) + ""+.BMCosts[ @menu ]+"" + callfunc("getMes",$@resetnpc,5);
                message strcharinfo(0), callfunc("getMes",$@resetnpc,8);
                mes "^FF0000Slot[X]^000000-[^0000FFSTR|AGI|VIT|INT|DEX|LUK^000000]";
                mes "^0000FF_____________________________^000000";
                for( set .@i,1; .@i <= .MaxSlots; set .@i,.@i + 1 ){
                        mes "^FF0000"+.@i+".^0000FF"+getd( "Slot_"+.@i+"$" )+"^000000 [^0000FF"+getd("STR_"+.@i)+"|"+getd("AGI_"+.@i)+"|"+getd("VIT_"+.@i)+"|"+getd("INT_"+.@i)+"|"+getd("DEX_"+.@i)+"|"+getd("LUK_"+.@i)+"^000000]";
                        }
                mes "^0000FF_____________________________^000000";
                input .@a,0,.MaxSlots;
                if( .@a != 0 ){
                        callfunc("SwitchBuild",.@a);
                        message strcharinfo(0),"Done";
                        set Zeny,Zeny - .BMCosts[ @menu ];
                        }
                close;
                break;
        case 2:
                if( Zeny < .BMCosts[ @menu ] ){
                        mes "[Sherin The Build Girl]";
                        mes callfunc("getMes",$@resetnpc,2) + ""+.BMCosts[ @menu ]+"" + callfunc("getMes",$@resetnpc,3);
                        close;
                        break;
                        }
                mes "[Sherin The Build Girl]";
                mes callfunc("getMes",$@resetnpc,16);
                if (select(callfunc("getMes",$@resetnpc,12)+":"+callfunc("getMes",$@resetnpc,13)) == 2) {
                next;
                mes "[Sherin The Build Girl]";
                mes callfunc("getMes",$@resetnpc,14);
                close;
                }
                next;
                mes "[Sherin The Build Girl]";
                mes callfunc("getMes",$@resetnpc,4) + ""+.BMCosts[ @menu ]+"" + callfunc("getMes",$@resetnpc,5);
                mes "^0000FF_____________________________^000000";
                mes "^FF0000@^000000 STR - "+readparam(bStr)+" ^FF0000@^000000 AGI - "+readparam(bAgi)+" ^FF0000@^000000 VIT - "+readparam(bVit)+"";
                mes "^FF0000@^000000 INT - "+readparam(bInt)+" ^FF0000@^000000 DEX - "+readparam(bDex)+" ^FF0000@^000000 LUK - "+readparam(bLuk)+"";
                mes "^0000FF_____________________________^000000";
                message strcharinfo(0), callfunc("getMes",$@resetnpc,8);
                mes "^FF0000Slot[X]^000000-[^0000FFSTR|AGI|VIT|INT|DEX|LUK^000000]";
                mes "^0000FF_____________________________^000000";
                for( set .@i,1; .@i <= .MaxSlots; set .@i,.@i + 1 ){
                        mes "^FF0000"+.@i+".^0000FF"+getd( "Slot_"+.@i+"$" )+"^000000 [^0000FF"+getd("STR_"+.@i)+"|"+getd("AGI_"+.@i)+"|"+getd("VIT_"+.@i)+"|"+getd("INT_"+.@i)+"|"+getd("DEX_"+.@i)+"|"+getd("LUK_"+.@i)+"^000000]";
                        }
                mes "^0000FF_____________________________^000000";
                input .@a,0,.MaxSlots;
                if( .@a != 0 ){
                        callfunc("SaveBuild",.@a,.StatRename);
                        set Zeny,Zeny - .BMCosts[ @menu ];
                        }
                close;
                break;
        case 3:
                if( Zeny < .BMCosts[ @menu ] ){
                        mes "[Sherin The Build Girl]";
                        mes callfunc("getMes",$@resetnpc,2) + ""+.BMCosts[ @menu ]+"" + callfunc("getMes",$@resetnpc,3);
                        close;
                        break;
                        }
                mes "[Sherin The Build Girl]";
                mes callfunc("getMes",$@resetnpc,11);
                if (select(callfunc("getMes",$@resetnpc,12)+":"+callfunc("getMes",$@resetnpc,13)) == 2) {
                next;
                mes "[Sherin The Build Girl]";
                mes callfunc("getMes",$@resetnpc,14);
                close;
                }
                next;
                mes callfunc("getMes",$@resetnpc,4) + ""+.BMCosts[ @menu ]+"" + callfunc("getMes",$@resetnpc,5);
                resetstatus;
                set Zeny,Zeny - .BMCosts[ @menu ];
                mes callfunc("getMes",$@resetnpc,6);
                close;
                break;
        case 4:
                if( Zeny < .BMCosts[ @menu ] ){
                        mes "[Sherin The Build Girl]";
                        mes callfunc("getMes",$@resetnpc,2) + ""+.BMCosts[ @menu ]+"" + callfunc("getMes",$@resetnpc,3);
                        close;
                        break;
                        }
                mes "[Sherin The Build Girl]";
                mes callfunc("getMes",$@resetnpc,11);
                if (select(callfunc("getMes",$@resetnpc,12)+":"+callfunc("getMes",$@resetnpc,13)) == 2) {
                next;
                mes "[Sherin The Build Girl]";
                mes callfunc("getMes",$@resetnpc,14);
                close;
                }
                next;
                mes callfunc("getMes",$@resetnpc,4) + ""+.BMCosts[ @menu ]+"" + callfunc("getMes",$@resetnpc,5);
                resetskill;
                set Zeny,Zeny - .BMCosts[ @menu ];
                mes callfunc("getMes",$@resetnpc,7);
                close;
                break;
                }
        }
OnInit:
       
        set $@resetnpc, callfunc("getNPCID","resetnpc");
 
        // English Messages
        set .@lc$,"en";
        callfunc "newMes", $@resetnpc, 0, "Welcome!",.@lc$;
        callfunc "newMes", $@resetnpc, 1, "what can i do for you?",.@lc$;
        callfunc "newMes", $@resetnpc, 2, "You need ^FF0000 ",.@lc$;
        callfunc "newMes", $@resetnpc, 3, " Zeny^000000 for this Service.",.@lc$;
        callfunc "newMes", $@resetnpc, 4, "^0000FFCost^000000 : ^FF0000 ",.@lc$;
        callfunc "newMes", $@resetnpc, 5, " ^000000 Zeny",.@lc$;
        callfunc "newMes", $@resetnpc, 6, "Status Points resettet.",.@lc$;
        callfunc "newMes", $@resetnpc, 7, "Skill points resettet.",.@lc$;
        callfunc "newMes", $@resetnpc, 8, "Input 0 to cancel",.@lc$;
        callfunc "newMes", $@resetnpc, 9, "Input the Name for this Slot. [ Max. 12 Chars ]",.@lc$;
        callfunc "newMes", $@resetnpc, 10, "^FF0000Reset Skills/Status/Build cost 500K Zeny^000000",.@lc$;
        callfunc "newMes", $@resetnpc, 11, "Do you want to resett?",.@lc$;
        callfunc "newMes", $@resetnpc, 12, "Yes",.@lc$;
        callfunc "newMes", $@resetnpc, 13, "No",.@lc$;
        callfunc "newMes", $@resetnpc, 14, "Farewell!",.@lc$;
        callfunc "newMes", $@resetnpc, 15, "Do you want to swich the Build?",.@lc$;
        callfunc "newMes", $@resetnpc, 16, "Do you want to save the Build?",.@lc$;
       
        // German Messages
        set .@lc$,"de";
        callfunc "newMes", $@resetnpc, 0, "Willkommen",.@lc$;
        callfunc "newMes", $@resetnpc, 1, "was kann ich für dich tun?",.@lc$;
        callfunc "newMes", $@resetnpc, 2, "du brauchst ^FF0000 ",.@lc$;
        callfunc "newMes", $@resetnpc, 3, " Zeny^000000 für diesen Service",.@lc$;
        callfunc "newMes", $@resetnpc, 4, "^0000FFKosten^000000 : ^FF0000 ",.@lc$;
        callfunc "newMes", $@resetnpc, 5, " ^000000 Zeny",.@lc$;
        callfunc "newMes", $@resetnpc, 6, "Status Punkte zurückgesetzt",.@lc$;
        callfunc "newMes", $@resetnpc, 7, "Skill Punkte zurückgesetzt",.@lc$;
        callfunc "newMes", $@resetnpc, 8, "Gebe 0 ein um abzubrechen",.@lc$;
        callfunc "newMes", $@resetnpc, 9, "Gib den namen des Slots ein [ Max 12 Buchstaben]",.@lc$;
        callfunc "newMes", $@resetnpc, 10, "^FF0000Zurücksetzten der Skills/Status Punkte/ Builds kostet 500K Zeny^000000!",.@lc$;
        callfunc "newMes", $@resetnpc, 11, "Möchtest du Resetten?",.@lc$;
        callfunc "newMes", $@resetnpc, 12, "Ja",.@lc$;
        callfunc "newMes", $@resetnpc, 13, "Nein",.@lc$;
        callfunc "newMes", $@resetnpc, 14, "Bis bald",.@lc$;
        callfunc "newMes", $@resetnpc, 15, "Möchtest du den Build Wechseln?",.@lc$;
        callfunc "newMes", $@resetnpc, 16, "Möchtest du den Build Speichern?",.@lc$;
end;
}
 
function        script  SaveBuild       {
        setd "STR_"+getarg(0),readparam(bStr);
        setd "AGI_"+getarg(0),readparam(bAgi);
        setd "VIT_"+getarg(0),readparam(bVit);
        setd "INT_"+getarg(0),readparam(bInt);
        setd "DEX_"+getarg(0),readparam(bDex);
        setd "LUK_"+getarg(0),readparam(bLuk);
        if( getarg(1) ){
                do{
                        message strcharinfo(0), callfunc("getMes",$@resetnpc,9);
                        input getd( "Slot_"+getarg(0)+"$" );
                }while( getstrlen( getd( "Slot_"+getarg(0)+"$" ) ) > 12 );
        }else{
        set getd( "Slot_"+getarg(0)+"$" ),"Stats "+getarg(0);
        }
return;
}
 
function        script  SwitchBuild     {
        resetstatus;
        statusup2 bStr,getd( "STR_"+getarg(0) )-1;
        statusup2 bAgi,getd( "AGI_"+getarg(0) )-1;
        statusup2 bVit,getd( "VIT_"+getarg(0) )-1;
        statusup2 bInt,getd( "INT_"+getarg(0) )-1;
        statusup2 bDex,getd( "DEX_"+getarg(0) )-1;
        statusup2 bLuk,getd( "LUK_"+getarg(0) )-1;
        set StatusPoint,0;
return;
}
Viewed 478 times, submitted by unknown.