StaffVanish

BDFD - MassRole

Feb 1st, 2024 (edited)
155
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.49 KB | Source Code | 0 0
  1. $nomention
  2. $allowMention
  3. $onlyBotPerms[manageroles;admin;$ephemeral ❎ I don't have `Admin` perms]
  4. $onlyPerms[manageroles;$ephemeral You don't have `Manage Roles` perms]
  5. $onlyIf[$message!=;Usage: `+masrole <add/remove> <@user1> <@user2> <@user3> ... <@&role>`
  6. (Give a role to all mentioned users)
  7. (Max user can be given is 38 users)]
  8. $if[$toLowercase[$message[1]]==add]
  9. $var[i;1]
  10. $textSplit[$message;<@]
  11. $var[user;$eval[$replaceText[$replaceText[$cropText[$repeatMessage[10;$sum[1e38;0]];$getTextSplitLength;];1;0];0;%{DOL}%if[%{DOL}%userExists[%{DOL}%mentioned[%{DOL}%var[i\]\]\]\]%{DOL}%mentioned[%{DOL}%var[i\]\]%{DOL}%endif %{DOL}%var[i\;%{DOL}%sum[%{DOL}%var[i\]\;1\]\]]]]
  12. $onlyIf[$var[user]!=;$ephemeral ❎ Mention a user(s) to give their role]
  13. $textSplit[$message;<@&]
  14. $var[role;$trimSpace[$if[$roleExists[$mentionedRoles[1]]]$mentionedRoles[1]$endif ]]
  15. $onlyIf[$var[role]!=;$ephemeral ❎ Mention a role to give user(s) role]
  16. $onlyIf[$rolePosition[$var[role]]>=$rolePosition[$highestRole[$authorID]];$ephemeral You can't give role this user, because your highest role position at **$rolePosition[$highestRole[$authorID]]**.
  17. while the role position at **$rolePosition[$var[role]]**]
  18. $onlyIf[$rolePosition[$var[role]]>=$rolePosition[$highestRole[$botID]];$ephemeral I can't give role this user, because my highest role position at **$rolePosition[$highestRole[$botID]]**.
  19. while the role position at **$rolePosition[$var[role]]**]
  20. $allowUserMentions[]
  21. $allowRoleMentions[$var[role]]
  22. $textSplit[$var[user]; ]
  23. $var[n;1]
  24. $var[id;$sendMessage[Wait...;yes]]
  25. $replyIn[1s]
  26. $var[s;0]$var[f;0]
  27. $async[a]
  28. $eval[$replaceText[$cropText[$replaceText[$repeatMessage[10;$sum[1e38;0]];1;0];$getTextSplitLength;];0;%{DOL}%allowRoleMentions[%{DOL}%var[role\]\] %{DOL}%replyIn[1s\] %{DOL}%try %{DOL}%editMessage[%{DOL}%channelID\;%{DOL}%var[id\]\;Added <@&%{DOL}%var[role\]> to <@%{DOL}%splitText[%{DOL}%var[n\]\]>\]%{DOL}%roleGrant[%{DOL}%splitText[%{DOL}%var[n\]\]\;+%{DOL}%var[role\]\]%{DOL}%var[s\;%{DOL}%sum[%{DOL}%var[s\]\;1\]\]%{DOL}%catch %{DOL}%editMesage[%{DOL}%channelID\;%{DOL}%var[id\]\;I can't give role to <@%{DOL}%splitText[%{DOL}%var[n\]\]>\]%{DOL}%var[f\;%{DOL}%sum[%{DOL}%var[f\]\;1\]\]%{DOL}%endtry %{DOL}%var[n\;%{DOL}%sum[%{DOL}%var[n\]\;1\]\]]]
  29. $endasync
  30. $await[a]
  31. $replyIn[2s]
  32. $reply[$channelID;$var[id]]
  33. ✅: $var[s] User(s) given
  34. ❎: $var[f] User(s) given't
  35. $elseif[$toLowercase[$message[1]]==remove]
  36. $var[i;1]
  37. $textSplit[$message;<@]
  38. $var[user;$eval[$replaceText[$replaceText[$cropText[$repeatMessage[10;$sum[1e38;0]];$getTextSplitLength;];1;0];0;%{DOL}%if[%{DOL}%userExists[%{DOL}%mentioned[%{DOL}%var[i\]\]\]\]%{DOL}%mentioned[%{DOL}%var[i\]\]%{DOL}%endif %{DOL}%var[i\;%{DOL}%sum[%{DOL}%var[i\]\;1\]\]]]]
  39. $onlyIf[$var[user]!=;$ephemeral ❎ Mention a user(s) to give their role]
  40. $textSplit[$message;<@&]
  41. $var[role;$trimSpace[$if[$roleExists[$mentionedRoles[1]]]$mentionedRoles[1]$endif ]]
  42. $onlyIf[$var[role]!=;$ephemeral ❎ Mention a role to give user(s) role]
  43. $onlyIf[$rolePosition[$var[role]]>=$rolePosition[$highestRole[$authorID]];$ephemeral You can't remove role for this user, because your highest role position at **$rolePosition[$highestRole[$authorID]]**.
  44. while the role position at **$rolePosition[$var[role]]**]
  45. $onlyIf[$rolePosition[$var[role]]>=$rolePosition[$highestRole[$botID]];$ephemeral I can't remove role for this user, because my highest role position at **$rolePosition[$highestRole[$botID]]**.
  46. while the role position at **$rolePosition[$var[role]]**]
  47. $allowUserMentions[]
  48. $allowRoleMentions[$var[role]]
  49. $textSplit[$var[user]; ]
  50. $var[n;1]
  51. $var[id;$sendMessage[Wait...;yes]]
  52. $replyIn[1s]
  53. $var[s;0]$var[f;0]
  54. $async[a]
  55. $eval[$replaceText[$cropText[$replaceText[$repeatMessage[10;$sum[1e38;0]];1;0];$getTextSplitLength;];0;%{DOL}%allowRoleMentions[%{DOL}%var[role\]\]%{DOL}%replyIn[1s\] %{DOL}%try %{DOL}%editMessage[%{DOL}%channelID\;%{DOL}%var[id\]\;Removed <@&%{DOL}%var[role\]> to <@%{DOL}%splitText[%{DOL}%var[n\]\]>\]%{DOL}%roleGrant[%{DOL}%splitText[%{DOL}%var[n\]\]\;-%{DOL}%var[role\]\]%{DOL}%var[s\;%{DOL}%sum[%{DOL}%var[s\]\;1\]\]%{DOL}%catch %{DOL}%editMesage[%{DOL}%channelID\;%{DOL}%var[id\]\;I can't remove this role to <@%{DOL}%splitText[%{DOL}%var[n\]\]>\]%{DOL}%var[f\;%{DOL}%sum[%{DOL}%var[f\]\;1\]\]%{DOL}%endtry %{DOL}%var[n\;%{DOL}%sum[%{DOL}%var[n\]\;1\]\]]]
  56. $endasync
  57. $await[a]
  58. $replyIn[2s]
  59. $reply[$channelID;$var[id]]
  60. ✅: $var[s] User(s) removed
  61. ❎: $var[f] User(s) can't be remove
  62. $else
  63. $ephemeral Type `add` or `remove` to run this massrole!
  64. $endif
  65. $c[Made By deruuyo#0]
Advertisement
Add Comment
Please, Sign In to add comment