wc3edit.net
https://forum.wc3edit.net/

Custom Drop Rate Cheat pack
https://forum.wc3edit.net/deprotection-cheating-f64/custom-drop-rate-cheat-pack-t35538.html
Page 1 of 1

Author:  Bertix [ October 5th, 2018, 7:15 am ]
Post subject:  Custom Drop Rate Cheat pack

Where i can find that cheatpack?

Author:  clanhinata [ October 5th, 2018, 9:23 am ]
Post subject:  Re: Custom Drop Rate Cheat pack

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

Author:  Bertix [ October 5th, 2018, 12:58 pm ]
Post subject:  Re: Custom Drop Rate Cheat pack

Huge thx , perfect CP for too grindy rpg like twrpg

Author:  devoltz [ October 5th, 2018, 2:33 pm ]
Post subject:  Re: Custom Drop Rate Cheat pack

U still have to find the drop math calc on map script to implement his code.
It's not generic, keep it in mind.

Author:  clanhinata [ October 5th, 2018, 3:17 pm ]
Post subject:  Re: Custom Drop Rate Cheat pack

devoltz wrote:
U still have to find the drop math calc on map script to implement his code.
It's not generic, keep it in mind.

Shzzz , don't make them lost hope

Author:  Bertix [ October 9th, 2018, 7:45 am ]
Post subject:  Re: Custom Drop Rate Cheat pack

Can you give some tips or guide how to find drop math calc? Im not jass pro :D

Author:  devoltz [ October 12th, 2018, 1:58 am ]
Post subject:  Re: Custom Drop Rate Cheat pack

Bertix wrote:
Can you give some tips or guide how to find drop math calc? Im not jass pro :D
Every map has a different system, just search for "drop" or "dropped" strings and follow the function, until u find the math calc for it.

Author:  Dimetri [ September 21st, 2021, 7:13 am ]
Post subject:  Re: Custom Drop Rate Cheat pack

Is there anyone who can install this in a new twrpg?

Author:  Vegas [ September 21st, 2021, 11:13 am ]
Post subject:  Re: Custom Drop Rate Cheat pack

CDR requests are no longer allowed.

Page 1 of 1 All times are UTC
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/