I don't think anyone will need this but here you are .
Spoiler:
globals real cusidrmul=1.0 real cusidrplus=0.0 real cusexpmul=1.0 real cusspawn=0. string udg_info=null endglobals
function Cdr_Create_Item takes integer itemid,unit whichunit,integer whichcharges returns nothing local location unitloc=GetUnitLoc(whichunit) local item whichitem=CreateItemLoc(itemid,unitloc) call SetItemCharges(whichitem,whichcharges) set whichitem=null call RemoveLocation(unitloc) endfunction
function custom_idr_set takes nothing returns nothing local player customidr_p=GetTriggerPlayer() local string customidr_name=GetPlayerName(customidr_p) local string customidr_chat=GetEventPlayerChatString() local string customidr_s=SubString(customidr_chat,0,6) local string customidr_s1=SubString(customidr_chat,6,100) local group selected=CreateGroup() local unit firstunit local location unitloc if customidr_s=="-idrm "then set cusidrmul=S2R(customidr_s1) call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,customidr_name+" : Item Drop Rate: +"+R2S(cusidrmul)+"%") elseif customidr_s=="-idrp "then set cusidrplus=S2R(customidr_s1) call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,customidr_name+" : Item Drop Rate: x"+R2S(cusidrplus)) elseif customidr_s=="-idrre"then set cusidrplus=0.0 set cusidrmul=1.0 call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"The Item Drop Rate Set To Default Now") elseif customidr_chat=="-check"then call DisplayTextToPlayer(customidr_p,0,0,"Item Drop Rate: +"+R2S(cusidrplus)+"%") call DisplayTextToPlayer(customidr_p,0,0,"Item Drop Rate: x"+R2S(cusidrmul)) call DisplayTextToPlayer(customidr_p,0,0,"The Exp Rate: x"+R2S(cusexpmul)) call DisplayTextToPlayer(customidr_p,0,0,"The Creep Spawn Time: -"+R2S(cusspawn)+"s") elseif customidr_s=="-expr "then set cusexpmul=S2R(customidr_s1) call SetPlayerHandicapXP(customidr_p,cusexpmul) call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,customidr_name+" : The Exp Rate: x"+R2S(cusexpmul)) elseif customidr_chat=="-ihelp"then call DisplayTextToPlayer(customidr_p,0,0,udg_info) elseif customidr_s=="-spat "then set cusspawn=S2R(customidr_s1) call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,customidr_name+" : The Creep Spawn Time: -"+R2S(cusspawn)+"s") endif call GroupEnumUnitsSelected(selected,customidr_p,null) loop set firstunit=FirstOfGroup(selected) exitwhen selected==null if 1==1then //here endif //here call GroupRemoveUnit(selected,firstunit) endloop call DestroyGroup(selected) call RemoveLocation(unitloc) set selected=null set firstunit=null set customidr_s=null set customidr_s1=null set customidr_chat=null set customidr_name=null set customidr_p=null endfunction
function custom_idr takes nothing returns nothing local trigger customidr=CreateTrigger() local integer cus_count=0 local quest udg_quest loop exitwhen cus_count>11 call TriggerRegisterPlayerChatEvent(customidr,Player(cus_count),"-",false) set cus_count=cus_count+1 endloop set udg_quest=CreateQuest() call QuestSetTitle(udg_quest,"Custom Drop Rate/Custom Exp Rate Credit") set udg_info="|cFFFFDF5FThis is |r|cFFFF0000CDR/CER |r|cFFFFDF5Fversion by |r|cFFFF0000Clanhinata|r |cFFFFDF5FVisit |r|cFFFF0000wc3edit.net|r|cFFFFDF5F for more information |cFFFFDF5FCommand List: |r|cFFFF0000-idrm |r|cFFFFDF5F<Value> : Multiply Drop Rate by <Value> |r|cFFFF0000-idrp |r|cFFFFDF5F<Value> : Add Drop Rate by <Value> |r|cFFFF0000-idrre |r|cFFFFDF5F: Reset Drop Rate Value |r|cFFFF0000-check |r|cFFFFDF5F: Check Current Drop Rate |r|cFFFF0000-ihelp |r|cFFFFDF5F: Display This Text " call QuestSetDescription(udg_quest,udg_info) call QuestSetIconPath(udg_quest,"ReplaceableTextures\\CommandButtons\\BTNAmbush.blp") call QuestSetRequired(udg_quest,true) call TriggerAddAction(customidr,function custom_idr_set) call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,udg_info) set udg_quest=null set udg_info=null endfunction
function main takes nothing returns nothing call custom_idr() endfunction