SHARE
TWEET

Untitled

a guest Sep 9th, 2019 75 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Select Case .priv
  2.  
  3.                                 Case 0
  4.  
  5.                                     If .Invisible = True Then
  6.                                        
  7.                                         If .Criminal = 1 Then
  8.                                         ElseIf .Criminal = 1 Then
  9.                                             Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, CaosClan)
  10.                                         ElseIf .Criminal = 2 Then
  11.                                             Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, Caos)
  12.                                         ElseIf .Criminal = 3 Then
  13.                                             Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, White)
  14.                                         ElseIf .Criminal = 4 Then
  15.                                             Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, Real)
  16.                                         ElseIf .Criminal = 5 Then
  17.                                             Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, Tini)
  18.                                         Else
  19.                                             Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, RealClan)
  20.                                         End If
  21.                                        
  22.                                         Call Text_Draw(PixelOffSetX - lCenterClan, PixelOffSetY + 40, sClan, VerdeF)
  23.                                        
  24.                                     ElseIf .Criminal = 1 Then ' Crimi comun
  25.                                        longToArray Color, ColoresPJ(50)
  26.                                         Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, Caos)
  27.                                         Call Text_Draw(PixelOffSetX - lCenterClan, PixelOffSetY + 40, sClan, CaosClan)
  28.                                        
  29.                                     ElseIf .Criminal = 2 Then ' Templario
  30.                                        Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, Caos)
  31.                                         Call Text_Draw(PixelOffSetX - lCenterClan, PixelOffSetY + 40, sClan, CaosClan)
  32.                                        
  33.                                        
  34.                                     ElseIf .Criminal = 3 Then ' Templario
  35.                                        Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, White)
  36.                                         Call Text_Draw(PixelOffSetX - lCenterClan, PixelOffSetY + 40, sClan, RealClan)
  37.                                        
  38.                                     ElseIf .Criminal = 4 Then ' Clero
  39.                                        Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, Real)
  40.                                         Call Text_Draw(PixelOffSetX - lCenterClan, PixelOffSetY + 40, sClan, RealClan)
  41.                                            
  42.                                        
  43.                                     ElseIf .Criminal = 5 Then ' Namesis
  44.                                        Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, Tini)
  45.                                         Call Text_Draw(PixelOffSetX - lCenterClan, PixelOffSetY + 40, sClan, CaosClan)
  46.                                        
  47.                                     Else
  48.                                         longToArray Color, ColoresPJ(49)
  49.                                         Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, Real)
  50.                                         Call Text_Draw(PixelOffSetX - lCenterClan, PixelOffSetY + 40, sClan, RealClan)
  51.  
  52.                                     End If
  53.  
  54.                                 Case 25  'admin
  55.                                    longToArray ColorClan, D3DColorXRGB(255, 128, 64)
  56.                                     Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, ColorClan)
  57.                                     Call Text_Draw(PixelOffSetX - lCenterClan, PixelOffSetY + 45, sClan, ColorClan)
  58.                                                        
  59.                                 Case Else 'el resto
  60.                                    longToArray Color, ColoresPJ(.priv)
  61.                                     Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, Color)
  62.                                                        
  63.                                     longToArray ColorClan, D3DColorXRGB(255, 128, 64)
  64.                                     Call Text_Draw(PixelOffSetX - lCenterClan, PixelOffSetY + 40, sClan, ColorClan)
  65.  
  66.                             End Select
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top