Chasester_aka_you | 2014-07-20 08:00
New Ent Gui
17
points ]
 (3 votes)
A simple gui upgrade

A simple mod that allows better controls from the entedit gui menu (f3).

installation:
download file and replace menus.cfg,
or
copy above script and replace the last portion of the menus.cfg with it

chasester

newentgui = [
  genentattributes $arg1 $arg2 $arg3
  newgui $arg1 [
    guititle $entguitype
    guibar
    @entattributes
    @arg4
    guitab type
    guilistsplit n 2 $enttypelist [
        guibutton $n [ entset @n ]
    ]
    guitab misc
    @quickeditmenu
  ] "" [initentgui; @arg5; ]
]

looplist i $enttypelist [
  newentgui $i "" ""
]

newgui materials [
  @matmenu
  guitab misc
  @quickeditmenu
]

newgui brushes [
  @brushmenu
  guitab misc
  @quickeditmenu
]

newgui quickedit [
  @quickeditmenu
  guitab materials
  @matmenu
]

entscale = 100;

newentgui light "radius red green blue" "0 400 0 255 0 255 0 255" [
    guibar
  guistayopen [
guilist [
    guibutton "1/2 light  " [halflight 1 2 ] 
guibar
guibutton  "  " "" 0
    guibutton "3/4 light " [halflight 3 4 ]
    ]
    guitext "scale(%)"
    guislider entscale 0 200
    guibutton "update" [halflight $entscale 100; entscale = 100; ] 
]
guibar
    guicheckbox "ambient" entguiattr4 1 0 [ entupdate ]
] [ entscale = 100; ]

halflight = [
entguiattr1 = (min 255 (div (* ( $entguiattr1 ) $arg1 ) $arg2 ) )
entguiattr2 = (min 255 (div (* ( $entguiattr2 ) $arg1 ) $arg2 ) )
entguiattr3 = (min 255 (div (* ( $entguiattr3 ) $arg1 ) $arg2 ) )
entupdate
]
teamselect = [
guitext "" 0
guiradio "neural" entguiattr1 0 [entupdate]
guiradio "team one" entguiattr1 1 [entupdate]
guiradio "team two" entguiattr1 2 [entupdate]
]

newentgui spotlight "radius" "0 90"
newentgui playerstart "direction" "0 360" [ @teamselect ]
newentgui teleport "tag model" "0 20 0 200" [guicheckbox "use model" entguiattr1 0 -1 [entupdate] ]
newentgui teledest "direction tag" "0 360 0 20" [guicheckbox "keep velocity" entguiattr2 1 0 [entupdate] ]
newentgui monster "direction" "0 360"[
guilist [ guilist [
    guiradio "ogro     "  entguiattr1 0 [entupdate]
    guiradio "rhino    " entguiattr1 1 [entupdate] 
    guiradio "ratama   " entguiattr1 2 [entupdate]
    guiradio "slith    " entguiattr1 3 [entupdate]
    guiradio "bauul    " entguiattr1 4 [entupdate] ]
guibar
guilist [
    guiradio "hellpig  " entguiattr1 5 [entupdate]
    guiradio "knight   " entguiattr1 6 [entupdate]
    guiradio "goblin   " entguiattr1 7 [entupdate]
    guiradio "spider   " entguiattr1 8 [entupdate] ]
   ]
]
newentgui mapmodel "direction model" "0 360 0 100"
newentgui envmap "radius" "0 400"
newentgui jumppad "Z Y X" "0 200 0 200 0 200"
newentgui sound "type radius size" "0 20 0 500 0 500"
newentgui particles "type" "0 7"
newentgui flag	"direction" "0 360" [ @teamselect]
newentgui base "" "" [
guistayopen [
   guitext "tag"
   guislider entguiattr2 0 10
   guitext "" 0
guilist [ guilist [
    guiradio "shells   " entguiattr1 1 [entupdate] 
    guiradio "bullets  " entguiattr1 2 [entupdate]
    guiradio "rockets  " entguiattr1 3 [entupdate]
    guiradio "random   " entguiattr1 0 [entupdate] 
 ]
guibar
guilist [
    guiradio "rifle    " entguiattr1 4 [entupdate] 
    guiradio "grenades " entguiattr1 5 [entupdate]
    guiradio "pistol   " entguiattr1 6 [entupdate] ]
   ]
]
]

entweapontypelist = "shells riflerounds bullets rockets grenades cartridges health greenarmour yellowarmour quaddamage healthboost"
entguiweapon = [
guilistsplit n 2 $entweapontypelist [
        guibutton $n [ entset @n ]
    ]
]

setupweapongui = [ 
loop i 11 [
  newentgui (at $entweapontypelist $i) "" "" [@entguiweapon ] ]
] 
setupweapongui
contexteditgui = [
    if $hmapedit [showgui brushes] [
        if (enthavesel) [
            showgui (enttype)
        ] [showgui (? (havesel) materials quickedit)]
    ]
]

showentgui = [ contexteditgui ] // legacy bind

newgui seltexinfo [
    guitext (concatword "Slot: " (getseltex))
    guilist [ loop x 5 [
        texname = (gettexname (getseltex) $x)
        texname = (substr $texname (+ (strstr $texname ">") 1)) // chop off any leading commands
        guiimage (concatword "packages/" $texname) "" 1 1
    ]]
    loop x 5 [ tex = (gettexname (getseltex) $x); if (strcmp $tex "") [] [guitext $tex]]
]
menus.cfg (50.14 KB)
17
points
 (3 votes)
User login
Users on Quadropolis
1 guest & no users online
Ao1 Pointblank
10
points ]
 (1 vote)
Created 2019-01-15 01:58
2 days 12 hours ago
arCABAL
20
points ]
 (2 votes)
Created 2019-01-14 22:07
2 days 16 hours ago
Ao1 Pointblank
28
points ]
 (3 votes)
Created 2018-12-04 15:12
6 weeks 1 day ago
Ao1 Pointblank
20
points ]
 (2 votes)
Created 2018-12-10 05:31
5 weeks 3 days ago
56
points ]
 (7 votes)
Created 2018-07-12 17:59
26 weeks 6 days ago
10
points ]
 (1 vote)
Created 2018-12-04 15:42
6 weeks 1 day ago
20
points ]
 (2 votes)
Created 2018-12-04 15:24
6 weeks 1 day ago
Ao1 Pointblank
81
points ]
 (9 votes)
Created 2018-03-22 02:14
43 weeks 12 hours ago
Doko
37
points ]
 (4 votes)
Created 2018-11-05 21:53
10 weeks 2 days ago
Fixxxer
85
points ]
 (9 votes)
Created 2018-10-27 15:21
11 weeks 4 days ago
Redon
114
points ]
 (12 votes)
Created 2018-09-25 22:41
16 weeks 1 day ago
Cooper
49
points ]
 (6 votes)
Created 2016-02-12 07:14
2 years 48 weeks ago
7YearBitch
31
points ]
 (4 votes)
Created 2018-10-14 13:17
13 weeks 4 days ago
Sauce
45
points ]
 (5 votes)
Created 2018-08-22 19:15
21 weeks 19 hours ago
7YearBitch
26
points ]
 (3 votes)
Created 2018-08-10 18:14
22 weeks 5 days ago
Shuzomi
94
points ]
 (10 votes)
Created 2018-09-15 20:19
17 weeks 4 days ago
Ao1 Pointblank
45
points ]
 (5 votes)
Created 2018-10-04 23:03
14 weeks 6 days ago
35
points ]
 (4 votes)
Created 2018-07-30 14:34
24 weeks 3 days ago
10
points ]
 (1 vote)
Created 2018-10-04 23:22
14 weeks 6 days ago
5
points ]
 (1 vote)
Created 2013-05-28 16:41
5 years 33 weeks ago
Who's new
  • impala97
  • Fixxxer
  • Gangler
  • DON
  • sevnnseven