wc3edit.net

United Warcraft 3 map hacking!
It is currently March 28th, 2024, 10:57 pm

All times are UTC




Post new topic Reply to topic  [ 9 posts ] 
Author Message
PostPosted: October 5th, 2018, 7:15 am 
Offline
Member

Joined: March 22nd, 2014, 8:48 am
Posts: 51
Location: Garena
Where i can find that cheatpack?


Top
 Profile  
 
PostPosted: October 5th, 2018, 9:23 am 
Offline
Old Wrinkly Member
User avatar

Joined: December 17th, 2011, 9:25 am
Posts: 246
Title: Genius
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


Top
 Profile  
 
PostPosted: October 5th, 2018, 12:58 pm 
Offline
Member

Joined: March 22nd, 2014, 8:48 am
Posts: 51
Location: Garena
Huge thx , perfect CP for too grindy rpg like twrpg


Top
 Profile  
 
PostPosted: October 5th, 2018, 2:33 pm 
Offline
Forum Staff
User avatar

Joined: March 23rd, 2016, 8:06 pm
Posts: 3236
U still have to find the drop math calc on map script to implement his code.
It's not generic, keep it in mind.


Top
 Profile  
 
PostPosted: October 5th, 2018, 3:17 pm 
Offline
Old Wrinkly Member
User avatar

Joined: December 17th, 2011, 9:25 am
Posts: 246
Title: Genius
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


Top
 Profile  
 
PostPosted: October 9th, 2018, 7:45 am 
Offline
Member

Joined: March 22nd, 2014, 8:48 am
Posts: 51
Location: Garena
Can you give some tips or guide how to find drop math calc? Im not jass pro :D


Top
 Profile  
 
PostPosted: October 12th, 2018, 1:58 am 
Offline
Forum Staff
User avatar

Joined: March 23rd, 2016, 8:06 pm
Posts: 3236
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.


Top
 Profile  
 
PostPosted: September 21st, 2021, 7:13 am 
Offline
Newcomer

Joined: March 22nd, 2015, 5:31 am
Posts: 9
Is there anyone who can install this in a new twrpg?


Top
 Profile  
 
PostPosted: September 21st, 2021, 11:13 am 
Offline
Shopping Maul USA Creator
User avatar

Joined: January 18th, 2007, 11:07 am
Posts: 1992
Location: Calgary Canada
Title: No Comment
CDR requests are no longer allowed.


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 9 posts ] 

All times are UTC


Who is online

Users browsing this forum: No registered users and 29 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group

phpBB SEO


Privacy Policy Statement
Impressum (German)