Reaction Rolle en

rr_rolle = 0


Code 1
Trigger : /rollemenu

$nomention
$if[$guildID!=]
$title[Roles menu]
$description[>Please select the 'Gray' button to set the role
>
> You can remove the role with the 'Red' button]

$addButton[no;rr-set;Define role;secondary;no;]
$addButton[no;rr-delet;Delete role;danger;no;]
$color[$getVar[color]]
$footer[$getVar[footer]]
$endif


Code 2
Trigger : $onInteraction[rr-set]

$nomention
$newModal[rr-set-2;reactions role]
$addTextInput[modalInput1;short;Please provide the role ID;19;19;yes;;]

Code 3
Trigger : $onInteraction[rr-set-2]
BDSCRIPT 2

$nomention

$if[$roleExists[$input[modalInput1]]==true]

$setServerVar[rr_rolle;$input[modalInput1]]
$title[Successful]
$description[<@$authorID>, you have successfully set the role <@&$input[modalInput1]> `{$input[modalInput1]}` as the new reaction role.]
$color[$getVar[color]]
$footer[$getVar[footer]]

$else


$title[Invalid role ID]
$description[<@$authorID> your specification `$input[modalInput1]` is not a valid role ID,
please provide a valid ID]
$color[ff0000]
$endif

Code 4
Trigger : $onInteraction[rr-delet]

$nomention

$if[$roleExists[$getServerVar[rr_rolle]==true]]
$setServerVar[rr_rolle;0]
$title[__Role removed__]
$description[<@$authorID> you have successfully reset the response role to $serverName[$guildID].]
$color[$getVar[color]]
$footer[$getVar[footer]]

$else

$title[Role not found]
$description[$serverName[$guildID] does not appear to have a response role set]
$color[ff0000]

$endif

Code 5
Trigger : /rolle-setup

$nomention
$if[$roleExists[$getServerVar[rr_rolle]]==true]
$title[<:Rolle:1020945256612642837>〣__Distribution of roles__]
$description[Press the button below to get the role shown below.

╰─➤<@&$getServerVar[rr_rolle]>]
$color[$getVar[color]]

$thumbnail[$serverIcon]
$addButton[no;rr;;secondary;no;<:Rolle:1020945256612642837>]
$else
$title[__<:abbrechen:1025819352848670770>〣Error__]
$description[I couldn't find a reaction role on this server,
please set up a role with `/rollemenu` so that this system works here.]
$color[ff0000]
$endif


Code 6

Trigger : $onInteraction[rr]

$nomention
$onlyIf[$rolePosition[$highestRole[$botID]]<$rolePosition[$highestRole[$authorID]];Unfortunately I couldn't assign you your role because you have a higher role than me.]

$ephemeral
$removeButtons
$title[__Successful__]
$description[Hey <@$authorID>,
you have successfully obtained the role: <@&$getServerVar[rr_rolle]>.

> This is just an information window, you can press discard message below]

$color[$getVar[color]]
$footer[$getVar[footer]]

$roleGrant[$authorID;+$getServerVar[rr_rolle]]