24 "Edit List View (Sunk Button) -- Builder" 000000 Auto Assembler Script [ENABLE] //code from here to '[DISABLE]' will be used to enable the cheat {$lua} --------------DEfine COlor Section--------- Red = "0x000cfc0d" Red2 = "0x008080FF" Red4 = "0x00000097" Purple = "0x00cc0fce" Twilight = "0x00242424" CEForumGrey = "0x009c9c9c" LightGrey = "0x00dedede" White = "0x00FFFFFF" ------Function for Font Size Change----- function Increase_Font_Size(sender) setProperty( ListFont, "Size", "9") --S_But.onClick = Increase_Font_Mini_Panel ---- Fuck you LUA and all your damn redundant BULLSHIT control_onClick(S_But,Increase_Font_Size2) S_But.caption = 'Font Size 10'; end function Increase_Font_Size2(sender) setProperty( ListFont, "Size", "10") control_onClick(S_But,Increase_Font_Size3) S_But.caption = 'Font Size 7'; end function Increase_Font_Size3(sender) setProperty( ListFont, "Size", "7") control_onClick(S_But,Increase_Font_Size4) S_But.caption = 'Font Size 8'; end function Increase_Font_Size4(sender) setProperty( ListFont, "Size", "8") control_onClick(S_But,Increase_Font_Size) S_But.caption = 'Font Size 9'; end ----------------Function for Font Face Change ---------------------- function Change_Font_Face(sender) setProperty( ListFont, "Name", "Verdana") control_onClick(Fo_But,Change_Font_Face2) --Fo_But.caption = 'Set Font Size 12'; end function Change_Font_Face2(sender) setProperty( ListFont, "Name", "Comic Sans MS") control_onClick(Fo_But,Change_Font_Face3) --Fo_But.caption = 'Set Font Size 8'; end function Change_Font_Face3(sender) setProperty( ListFont, "Name", "Microsoft Sans Serif") control_onClick(Fo_But,Change_Font_Face) --Fo_But.caption = 'Set Font Size 10'; end ------------------Alpha Toggle--------------------- function Alpha_Toggle(sender) Main.AlphaBlendValue=("189") control_onClick(Alpha,Alpha_Toggle_Off) end function Alpha_Toggle_Off(sender) Main.AlphaBlendValue=("255") control_onClick(Alpha,Alpha_Toggle) end ------------Color List--------------------- function ColorList_Toggle(sender) control_setColor(wincontrol_getControl(List), Twilight) control_onClick(ColorList,ColorList_Toggle2) end function ColorList_Toggle2(sender) control_setColor(wincontrol_getControl(List), CEForumGrey) setProperty( List, "BackgroundColor", Red4) -- Not Working control_onClick(ColorList,ColorList_Toggle3) end function ColorList_Toggle3(sender) control_setColor(wincontrol_getControl(List), LightGrey) control_onClick(ColorList,ColorList_Toggle4) ColorList.Color = Red -- Not Working end function ColorList_Toggle4(sender) control_setColor(wincontrol_getControl(List), White) --control_setColor(wincontrol_getControl(ListFont), "0x00ffffff") control_setColor(ListFont, "0x0000ff00") -- Not Working control_onClick(ColorList,ColorList_Toggle) end ------ Grab Main Form ---- Main = getMainForm() Main.AlphaBlend=(true) -----Mouse Travel----- --[[function FormMouseLeave(sender) Main.AlphaBlendValue=("189") end function FormMouseEnter(sender) Main.AlphaBlendValue=("255") end --Main.OnMouseEnter = Alpha_Toggle --Main.OnMouseLeave = Alpha_Toggle_Off]] -- Grab Address List ------ List = getAddressList() ListFont = control_getFont(List); -- setProperty( ListFont, "Style", "[fsBold, fsItalic, fsUnderline]" ); --setProperty( ListFont, "Style", "" ); -- setProperty( ListFont, "Size", "08"); setProperty( ListFont, "Color", "0x00676789") -- setProperty( ListFont, "Color", Red4) --setProperty( ListFont, "Name", "@Arial")--"Comic Sans MS") --setProperty( ListFont, "Quality", fqAntialiased) -----------Bottom Panel Create------------------ Mini_Panel = createPanel(Main); --- Create Button Mini_Panel.width,Mini_Panel.height,Mini_Panel.top,Mini_Panel.left = 10,15,0,50;; Mini_Panel.Align = alBottom; Mini_Panel.caption = '' Mini_Panel.height = 13 --Mini_Panel.Color = Red4 --Mini_Panel.BevelOuter = bvLowered ------------Font Size Button------------- S_But = createButton(Mini_Panel); S_But.width = 80; S_But.height = 22 ; S_But.top = -5 ; S_But.left = 10 ; S_But.caption = 'Font Size 9'; S_But.onClick = Increase_Font_Size setProperty( ListFont, "Size", "8") ------------Font Face Button------------- Fo_But = createButton(Mini_Panel); Fo_But.width = 80; Fo_But.height = 22 ; Fo_But.top = -5 ; Fo_But.left = 100 ; Fo_But.caption = 'Change Font'; Fo_But.onClick = Change_Font_Face ------------Alpha Button------------- Alpha = createButton(Mini_Panel); Alpha.width = 80; Alpha.height = 22 ; Alpha.top = -5 ; Alpha.left = 190 ; Alpha.caption = 'Alpha Toggle'; Alpha.onClick = Alpha_Toggle ------------Colorize Button------------- ColorList = createButton(Mini_Panel); ColorList.width = 80; ColorList.height = 22 ColorList.top = -5 ColorList.left = 280 ; ColorList.caption = 'Colorize List'; ColorList.onClick = ColorList_Toggle ColorList.Color = "0x00ffffff" -- Not Working {$asm} [DISABLE] //code from here till the end of the code will be used to disable the cheat {$lua} Mini_Panel.Destroy() S_But.Destroy() Fo_But.Destroy() Alpha.Destroy() ColorList.Destroy() {$asm}