English kick menu

7 replies
Goto Page
To the start Previous 1 Next To the start
05.07.13 06:14:47 pm
Up
superpegamento
User
Offline Off
need that saying !kick open a menu in where Esten users on buttons and selecting the button a user kick user , one menu to kick users...
05.07.13 06:31:54 pm
Up
Pickabu
BANNED
Offline Off
Before asking something try to solve your own problem by yourself. Try to find any admin skript, download it, find the line with your code. DONE.
Spoiler >
edited 2×, last 05.07.13 06:56:20 pm
05.07.13 07:03:35 pm
Up
pbeloto
User
Offline Off
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
admin = {56395}

addhook ("serveraction","_serveraction")
function _serveraction(id,Active)
for _, usgn in ipairs(admin) do
if player(id,'usgn') == usgn then
if Active==1 then
menu(id,"Player Page 1,Kick")
end
end
end
end

addhook ("menu","_menu")
function _menu(id,Server,buton)
     if Server=="Player Page 1" then
if buton==1 then
     menu(id,"Kick Page 1,"..exist(1).."|1,"..exist(2).."|2,"..exist(3).."|3,"..exist(4).."|4,"..exist(5).."|5,"..exist(6).."|6,"..exist(7).."|7,"..exist(8).."|8,Next")
end
--- KICK ---
elseif Server=="Kick Page 1" then
if buton==9 then
menu(id,"Kick Page 2,"..exist(9).."|9,"..exist(10).."|10,"..exist(11).."|11,"..exist(12).."|12,"..exist(13).."|13,"..exist(14).."|14,"..exist(15).."|15,"..exist(16).."|16,Next")
    elseif buton~=0 then
        ki(buton)
end
elseif Server=="Kick Page 2" then
    if buton==9 then
         menu(id,"Kick Page 3,"..exist(17).."|17,"..exist(18).."|18,"..exist(19).."|19,"..exist(20).."|20,"..exist(21).."|21,"..exist(22).."|22,"..exist(23).."|23,"..exist(24).."|24,Next")
    elseif buton~=0 then
         ki(buton+8)
end
elseif Server=="Kick Page 3" then
    if buton==9 then
        menu(id,"Kick Page 4,"..exist(25).."|25,"..exist(26).."|26,"..exist(27).."|27,"..exist(28).."|28,"..exist(29).."|29,"..exist(30).."|30,"..exist(31).."|31,"..exist(32).."|32,Back")
          elseif buton~=0 then
               ki(buton+16)
          end
     elseif Server=="Kick Page 4" then
          if buton~=0 then
               ki(buton+24)
end
end


function ki(pl)
     parse("kick "..pl.." \" YOU Kicked \" ")
end


not tested
let me know if any error
05.07.13 08:36:42 pm
Up
superpegamento
User
Offline Off
user pbeloto has written:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
admin = {56395}

addhook ("serveraction","_serveraction")
function _serveraction(id,Active)
for _, usgn in ipairs(admin) do
if player(id,'usgn') == usgn then
if Active==1 then
menu(id,"Player Page 1,Kick")
end
end
end
end

addhook ("menu","_menu")
function _menu(id,Server,buton)
     if Server=="Player Page 1" then
if buton==1 then
     menu(id,"Kick Page 1,"..exist(1).."|1,"..exist(2).."|2,"..exist(3).."|3,"..exist(4).."|4,"..exist(5).."|5,"..exist(6).."|6,"..exist(7).."|7,"..exist(8).."|8,Next")
end
--- KICK ---
elseif Server=="Kick Page 1" then
if buton==9 then
menu(id,"Kick Page 2,"..exist(9).."|9,"..exist(10).."|10,"..exist(11).."|11,"..exist(12).."|12,"..exist(13).."|13,"..exist(14).."|14,"..exist(15).."|15,"..exist(16).."|16,Next")
    elseif buton~=0 then
        ki(buton)
end
elseif Server=="Kick Page 2" then
    if buton==9 then
         menu(id,"Kick Page 3,"..exist(17).."|17,"..exist(18).."|18,"..exist(19).."|19,"..exist(20).."|20,"..exist(21).."|21,"..exist(22).."|22,"..exist(23).."|23,"..exist(24).."|24,Next")
    elseif buton~=0 then
         ki(buton+8)
end
elseif Server=="Kick Page 3" then
    if buton==9 then
        menu(id,"Kick Page 4,"..exist(25).."|25,"..exist(26).."|26,"..exist(27).."|27,"..exist(28).."|28,"..exist(29).."|29,"..exist(30).."|30,"..exist(31).."|31,"..exist(32).."|32,Back")
          elseif buton~=0 then
               ki(buton+16)
          end
     elseif Server=="Kick Page 4" then
          if buton~=0 then
               ki(buton+24)
end
end


function ki(pl)
     parse("kick "..pl.." \" YOU Kicked \" ")
end


not tested
let me know if any error


LUA ERROR: sys/lua/server.lua:18: attemp to call global 'exists' (a nil value)
05.07.13 09:38:51 pm
Up
sheeL
User
Offline Off
Code:
1
2
3
4
5
6
7
function exist(param)
     if player(param,"exists") then
          return player(param,"name")
     else
          return "(None)"
     end
end
05.07.13 09:54:22 pm
Up
superpegamento
User
Offline Off
user sheeL has written:
Code:
1
2
3
4
5
6
7
function exist(param)
     if player(param,"exists") then
          return player(param,"name")
     else
          return "(None)"
     end
end

Thenks Shell!!
05.07.13 10:43:59 pm
Up
pbeloto
User
Offline Off
@user superpegamento: sorry


@user sheeL: Tanks
08.07.13 04:52:46 pm
Up
Xirot
User
Offline Off
Someone can post the full true code here ?
user Pickabu:
Quote:
I am not lua skripter and don't know what is that.

If you aren't a lua scripter why you are posting a comment here?
STOP , making stupid comments. If you know how to help this guy then do it otherwise don't make any stupid comment.
Yakuza.
To the start Previous 1 Next To the start