API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 8th, 2012
129
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.57 KB | None | 0 0
raw download clone embed print report
  1. --Diese Scripts unterliegen dem Urheberrecht von ******* ******-|-|
  2. -----------------------Create/Edit by [RR]Shady---------------------|-|
  3. ----------------------------(c) by Shady----------------------------|-|
  4. --------------------------------------------------------------------|-|
  5.  
  6.  
  7. Car_GUI = {}
  8. Car_Button = {}
  9. CarTab = {}
  10. Grid_Car = {}
  11.  
  12. local xs,ys = guiGetScreenSize()
  13. Car_GUI = guiCreateWindow(xs / 2 - 600 / 2,ys / 2 - 500 / 2,650,550,"C-BFS[Car-Bussines-Find-System]",false)
  14. guiSetFont (Car_GUI, "default-bold-small" )
  15. guiSetAlpha(Car_GUI,1)
  16. guiSetVisible(Car_GUI,false)
  17. CarTab = guiCreateTabPanel(10,20,700,700,false,Car_GUI)
  18. TabCar1 = guiCreateTab("Cars",CarTab)
  19. Grid_Car = guiCreateGridList(10,10,300,470,false,TabCar1)
  20. Besitzer_Label1 = guiGridListAddColumn(Grid_Car, "Besitzer", 0.43 )
  21. Besitzer_Label2 = guiGridListAddColumn(Grid_Car, "Slot", 0.43 )
  22. Besitzer_Label3 = guiGridListAddColumn(Grid_Car, "X",0.3)
  23. Besitzer_Label4 = guiGridListAddColumn(Grid_Car, "Y",0.3)
  24. Besitzer_Label5 = guiGridListAddColumn(Grid_Car, "Z",0.3)
  25. Besitzer_Label6 = guiGridListAddColumn(Grid_Car, "Tank",0.1)
  26. Car1 = guiCreateLabel( 0.53, 0.25, 0.70, 0.10, "X:", true,TabCar1)
  27. Car2 = guiCreateLabel( 0.53, 0.30, 0.70, 0.10, "Y:", true,TabCar1)
  28. Car3 = guiCreateLabel( 0.53, 0.35, 0.70, 0.10, "Z:", true,TabCar1)
  29. Car4 = guiCreateLabel( 0.53, 0.05, 0.70, 0.10, "Besitzer:", true,TabCar1)
  30. Car5 = guiCreateLabel( 0.53, 0.10, 0.70, 0.10, "Slot:", true,TabCar1)
  31. Car6 = guiCreateLabel( 0.53, 0.15, 0.70, 0.10, "Tank:", true,TabCar1)
  32. guiSetFont (Car1, "default-bold-small" )
  33. guiSetFont (Car2, "default-bold-small" )
  34. guiSetFont (Car3, "default-bold-small" )
  35. guiSetFont (Car4, "default-bold-small" )
  36. guiSetFont (Car5, "default-bold-small" )
  37. guiSetFont (Car6, "default-bold-small" )
  38. Car_Button[1] = guiCreateButton(510,450,106,38,"Verlassen",false,TabCar1)
  39. Car_Button[2] = guiCreateButton(320,410,106,38,"Port",false,TabCar1)
  40.  
  41. ------------------------------Bussines
  42. TabCar2 = guiCreateTab("Bussines",CarTab)
  43. Grid_Car2 = guiCreateGridList(10,10,300,470,false,TabCar2)
  44. Besitzer_Label12 = guiGridListAddColumn(Grid_Car2, "Besitzer", 0.43 )
  45. Besitzer_Label22 = guiGridListAddColumn(Grid_Car2, "Preis", 0.43 )
  46. Besitzer_Label32 = guiGridListAddColumn(Grid_Car2, "X",0.3)
  47. Besitzer_Label42 = guiGridListAddColumn(Grid_Car2, "Y",0.3)
  48. Besitzer_Label52 = guiGridListAddColumn(Grid_Car2, "Z",0.3)
  49. Car12 = guiCreateLabel( 0.53, 0.25, 0.70, 0.10, "X:", true,TabCar2)
  50. Car22 = guiCreateLabel( 0.53, 0.30, 0.70, 0.10, "Y:", true,TabCar2)
  51. Car32 = guiCreateLabel( 0.53, 0.35, 0.70, 0.10, "Z:", true,TabCar2)
  52. Car42 = guiCreateLabel( 0.53, 0.05, 0.70, 0.10, "Besitzer:", true,TabCar2)
  53. Car52 = guiCreateLabel( 0.53, 0.10, 0.70, 0.10, "Preis:", true,TabCar2)
  54.  
  55.  
  56. Car_Button[3] = guiCreateButton(510,450,106,38,"Verlassen",false,TabCar2)
  57. Car_Button[4] = guiCreateButton(320,410,106,38,"Port",false,TabCar2)
  58.  
  59. function refreshcopcomp()
  60. guiGridListClear (Grid_Car )
  61. for index, veh in pairs(getElementsByType( "vehicle" )) do
  62. if (getElementData(veh,"Owner") ~= nil) or (getElementData(veh,"Owner") ~= false) then
  63. row = guiGridListAddRow (Grid_Car)
  64. guiGridListSetItemText (Grid_Car, row, Besitzer_Label1, tostring(getElementData(veh,"Owner")), false, false )
  65. guiGridListSetItemText (Grid_Car, row, Besitzer_Label2, tostring(getElementData(veh,"OwnerSlot")), false, false )
  66. guiGridListSetItemText (Grid_Car, row, Besitzer_Label3, tostring(getElementData(veh,"CarX")), false, false )
  67. guiGridListSetItemText (Grid_Car, row, Besitzer_Label4, tostring(getElementData(veh,"CarY")), false, false )
  68. guiGridListSetItemText (Grid_Car, row, Besitzer_Label5, tostring(getElementData(veh,"CarZ")), false, false )
  69. guiGridListSetItemText (Grid_Car, row, Besitzer_Label6, tostring(getElementData(veh,"Tank")), false, false )
  70. end
  71. if (getElementData(veh,"Owner") == nil) or (getElementData(veh,"Owner") == false) then
  72. guiGridListRemoveRow(Grid_Car,row)
  73. end
  74. if (getElementData(veh,"Owner") == false) or (getElementData(veh,"OwnerSlot") == false) then
  75. guiGridListSetItemText (Grid_Car, row, Besitzer_Label2, "0", false, false )
  76. end
  77. if (getElementData(veh,"CarX") == false) or (getElementData(veh,"CarY") == false) or (getElementData(veh,"CarZ") == false) then
  78. guiGridListSetItemText (Grid_Car, row, Besitzer_Label3, "-", false, false )
  79. guiGridListSetItemText (Grid_Car, row, Besitzer_Label4, "-", false, false )
  80. guiGridListSetItemText (Grid_Car, row, Besitzer_Label5, "-", false, false )
  81. end
  82. if (getElementData(veh,"Tank") == false) then
  83. guiGridListSetItemText (Grid_Car, row, Besitzer_Label6, "120", false, false )
  84. end
  85. end
  86. end
  87.  
  88. function refreshcopcomper()
  89. local CAR1s = guiGridListGetItemText (Grid_Car, guiGridListGetSelectedItem (Grid_Car), 3 )
  90. local CAR2s = guiGridListGetItemText (Grid_Car, guiGridListGetSelectedItem (Grid_Car), 4 )
  91. local CAR3s = guiGridListGetItemText (Grid_Car, guiGridListGetSelectedItem (Grid_Car), 5 )
  92. local CAR4s = guiGridListGetItemText (Grid_Car, guiGridListGetSelectedItem (Grid_Car), 1 )
  93. local CAR5s = guiGridListGetItemText (Grid_Car, guiGridListGetSelectedItem (Grid_Car), 2 )
  94. local CAR6s = guiGridListGetItemText (Grid_Car, guiGridListGetSelectedItem (Grid_Car), 6 )
  95. guiSetText (Car1, ""..CAR1s.."" )
  96. guiSetText (Car2, ""..CAR2s.."" )
  97. guiSetText (Car3, ""..CAR3s.."" )
  98. guiSetText (Car4, "Besitzer : "..CAR4s.."" )
  99. guiSetText (Car5, "Slot: "..CAR5s.."" )
  100. guiSetText (Car6, "Tank: "..CAR6s.."" )
  101. end
  102. addEventHandler("onClientGUIClick",Grid_Car, refreshcopcomper, false)
  103.  
  104.  
  105. function ClosedCars ()
  106. guiSetVisible(Car_GUI,false)
  107. showCursor(false)
  108. end
  109. addEventHandler("onClientGUIClick",Car_Button[1], ClosedCars , false)
  110. addEventHandler("onClientGUIClick",Car_Button[3], ClosedCars , false)
  111.  
  112.  
  113. function CarPort ()
  114. local CAR1s = guiGetText(Car1)
  115. local CAR2s = guiGetText(Car2)
  116. local CAR3s = guiGetText(Car3)
  117. triggerServerEvent("onSpawnCarer", getRootElement(), getLocalPlayer(),CAR1s,CAR2s,CAR3s)
  118. end
  119. addEventHandler("onClientGUIClick",Car_Button[2], CarPort, false)
  120.  
  121.  
  122.  
  123. function StartCars()
  124. guiSetVisible (Car_GUI,true)
  125. showCursor(true)
  126. refreshcopcomp()
  127. refreshcopcomp2()
  128. end
  129. addEvent("OpenCarList",true)
  130. addEventHandler("OpenCarList",getRootElement(),StartCars)
  131.  
  132. function refreshcopcomp2()
  133. guiGridListClear (Grid_Car2 )
  134. for index, Biz in pairs(getElementsByType ("pickup")) do
  135. if (getElementData(Biz,"Ownerbiz") ~= nil) or (getElementData(Biz,"Ownerbiz") ~= false) then
  136. row = guiGridListAddRow (Grid_Car2)
  137. guiGridListSetItemText (Grid_Car2, row, Besitzer_Label12, tostring(getElementData(Biz,"Ownerbiz")), false, false )
  138. guiGridListSetItemText (Grid_Car2, row, Besitzer_Label22, tostring(getElementData(Biz,"Preisbiz")), false, false )
  139.  
  140. guiGridListSetItemText (Grid_Car2, row, Besitzer_Label32, tostring(getElementData(Biz,"BizX")), false, false )
  141. guiGridListSetItemText (Grid_Car2, row, Besitzer_Label42, tostring(getElementData(Biz,"BizY")), false, false )
  142. guiGridListSetItemText (Grid_Car2, row, Besitzer_Label52, tostring(getElementData(Biz,"BizZ")), false, false )
  143. end
  144. if (getElementData(Biz,"Ownerbiz") == nil) or (getElementData(Biz,"Ownerbiz") == false) then
  145. guiGridListSetItemText (Grid_Car2, row, Besitzer_Label12, "-", false, false )
  146. guiGridListSetItemText (Grid_Car2, row, Besitzer_Label22, "-", false, false )
  147. guiGridListSetItemText (Grid_Car2, row, Besitzer_Label32, "-", false, false )
  148. guiGridListSetItemText (Grid_Car2, row, Besitzer_Label42, "-", false, false )
  149. guiGridListSetItemText (Grid_Car2, row, Besitzer_Label52, "-", false, false )
  150. guiGridListRemoveRow(row)
  151. end
  152. end
  153. end
  154.  
  155. function refreshcopcomper2()
  156. local CAR1s = guiGridListGetItemText (Grid_Car2, guiGridListGetSelectedItem (Grid_Car2), 1 )
  157. local CAR2s = guiGridListGetItemText (Grid_Car2, guiGridListGetSelectedItem (Grid_Car2), 2 )
  158. local CAR3s = guiGridListGetItemText (Grid_Car2, guiGridListGetSelectedItem (Grid_Car2), 3 )
  159. local CAR4s = guiGridListGetItemText (Grid_Car2, guiGridListGetSelectedItem (Grid_Car2), 4 )
  160. local CAR5s = guiGridListGetItemText (Grid_Car2, guiGridListGetSelectedItem (Grid_Car2), 5 )
  161. guiSetText (Car12, ""..CAR3s.."" )
  162. guiSetText (Car22, ""..CAR4s.."" )
  163. guiSetText (Car32, ""..CAR5s.."" )
  164. guiSetText (Car42, "Besitzer: "..CAR1s.."" )
  165. guiSetText (Car52, "Preis: "..CAR2s.."" )
  166. end
  167. addEventHandler("onClientGUIClick",Grid_Car2, refreshcopcomper2, false)
  168.  
  169. function CarPort2 ()
  170. local CAR1s = guiGetText(Car12)
  171. local CAR2s = guiGetText(Car22)
  172. local CAR3s = guiGetText(Car32)
  173. triggerServerEvent("onSpawnCarer", getRootElement(), getLocalPlayer(),CAR1s,CAR2s,CAR3s)
  174. end
  175. addEventHandler("onClientGUIClick",Car_Button[4], CarPort2, false)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!