API tools faq
paste
Advertisement
Thomads

Stavox - Online Weapons [MASTER]

Thomads
Dec 26th, 2018
346
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 10.92 KB | None | 0 0
raw download clone embed print report
  1. @name OnlineWepMaster
  2. @inputs [EGP]:wirelink [User]:entity
  3. @outputs
  4. @persist [Gname,SentMsg]:string [Gscope,Pos,Index,ListingAmount]:number [Orders]:table
  5. @trigger
  6.  
  7. if(first()) {
  8.    
  9.     Gname = "WebShop"
  10.     Gscope = 0
  11.     Pos = 90
  12.     Index = 90
  13.     ListingAmount = 0
  14.    
  15.     Orders = table()
  16.    
  17.     dsJoinGroup(Gname)
  18.     dsSetScope(Gscope)    
  19.    
  20.    
  21.     ###########################
  22.     function number egpClick(Index, Cursor:vector2){
  23.         EPos = EGP:egpPos(Index)
  24.         ESize = EGP:egpSize(Index)
  25.         if(inrange(Cursor, (EPos - ESize/2), (EPos + ESize/2)) ){
  26.             return 1
  27.         }
  28.         return 0
  29.     }
  30.    
  31.     function void wirelink:drawScreen1() {
  32.         This:egpClear()
  33.         Pos = 90
  34.         Index = 90
  35.        
  36.         This:egpBox( 1,vec2(0,0),vec2(1024,1024) )
  37.         This:egpMaterial(1,"console/background04")
  38.        
  39.         #Title
  40.         This:egpBox( 2,vec2(256,20),vec2(1024,40) ) This:egpColor(2, vec4(0,0,0,190) )
  41.         This:egpText(3,"Webshop Terminal",vec2(256,4)) This:egpColor(3,vec4(255,255,255,200)) This:egpSize(3,30) This:egpAlign(3,1)
  42.        
  43.         #Category
  44.         This:egpBox( 4,vec2(256,55),vec2(1024,20) ) This:egpColor(4, vec4(0,0,0,190) )
  45.         This:egpText(5,"Aktive bestillinger",vec2(256,47)) This:egpColor(5,vec4(255,255,255,200)) This:egpSize(5,15) This:egpAlign(5,1)
  46.        
  47.         #Table
  48.         This:egpBox( 6,vec2(256,73),vec2(1024,15) ) This:egpColor(6, vec4(0,0,0,220) )
  49.         This:egpText(7,"Handling                        Antal                      Ordre                               Navn",vec2(36,66))
  50.         This:egpColor(7,vec4(255,255,255,200)) This:egpSize(7,12)
  51.    
  52.     }
  53.    
  54.     function void addVisualOrder(Amount:string, SteamID:string, Order:string) {
  55.         Ply =  findPlayerBySteamID(SteamID):name()
  56.         OL = Order:length()
  57.         CutLength = OL + (OL/2)*1.35
  58.         OrderCut = "                                      ":sub(1,38-CutLength)
  59.         Order2 = Order+OrderCut    
  60.         if(Pos>489) {
  61.             Pos = 90
  62.         }
  63.        
  64.        
  65.         EGP:egpBox( Index,vec2(256,Pos),vec2(1024,18) ) EGP:egpColor(Index, vec4(0,0,0,220) )
  66.         EGP:egpBox( Index+1,vec2(60,Pos),vec2(120,18) ) EGP:egpColor(Index+1, vec4(0,200,0,220) )
  67.         EGP:egpText(Index+2,"Marker som f"+ae()+"rdig               "+Amount+"                             "+Order2+""+Ply+"",vec2(12,Pos-7))
  68.         EGP:egpColor(Index+2,vec4(255,255,255,200)) EGP:egpSize(Index+2,12)
  69.        
  70.         Pos+=19
  71.         Index+=3
  72.     }
  73.    
  74.     function void addOrder(Amount:string, SteamID:string, Order:string) {
  75.         Key = Orders:count()+1
  76.         Orders[Key,table] = table()
  77.         Orders[Key,table]["SteamID",string] = SteamID
  78.         Orders[Key,table]["Order",string] = Order
  79.         Orders[Key,table]["Amount",string] = Amount
  80.        
  81.         addVisualOrder(Amount, SteamID, Order)
  82.     }
  83.    
  84.     function void triggerListing() {
  85.         EGP:drawScreen1()
  86.         ListingAmount = 1
  87.         timer("listNextOrder",500)
  88.     }
  89.    
  90.     EGP:drawScreen1()
  91. }
  92.  
  93. ##### Inputs #####
  94. Cursor = EGP:egpCursor(User)
  95. if(~User & User:keyUse() & ops()<100 & User == owner()){
  96.    
  97.     #Categories - Nav
  98.     if(egpClick(91,Cursor)) {
  99.         triggerListing()
  100.         concmd("say /pm "+Orders[1,table]["SteamID",string]+" Din pakke ["+Orders[1,table]["Order",string]+" x "+Orders[1,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  101.         Orders:remove(1)
  102.     }elseif(egpClick(94,Cursor)) {
  103.         triggerListing()
  104.         concmd("say /pm "+Orders[2,table]["SteamID",string]+" Din pakke ["+Orders[2,table]["Order",string]+" x "+Orders[2,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  105.         Orders:remove(2)
  106.        
  107.     }elseif(egpClick(97,Cursor)) {
  108.         triggerListing()
  109.         concmd("say /pm "+Orders[3,table]["SteamID",string]+" Din pakke ["+Orders[3,table]["Order",string]+" x "+Orders[3,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  110.         Orders:remove(3)
  111.        
  112.     }elseif(egpClick(100,Cursor)) {
  113.         triggerListing()
  114.         concmd("say /pm "+Orders[4,table]["SteamID",string]+" Din pakke ["+Orders[4,table]["Order",string]+" x "+Orders[4,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  115.         Orders:remove(4)
  116.        
  117.     }elseif(egpClick(103,Cursor)) {
  118.         triggerListing()
  119.         concmd("say /pm "+Orders[5,table]["SteamID",string]+" Din pakke ["+Orders[5,table]["Order",string]+" x "+Orders[5,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  120.         Orders:remove(5)
  121.        
  122.     }elseif(egpClick(106,Cursor)) {
  123.         triggerListing()
  124.         concmd("say /pm "+Orders[6,table]["SteamID",string]+" Din pakke ["+Orders[6,table]["Order",string]+" x "+Orders[6,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  125.         Orders:remove(6)
  126.        
  127.     }elseif(egpClick(109,Cursor)) {
  128.         triggerListing()
  129.         concmd("say /pm "+Orders[7,table]["SteamID",string]+" Din pakke ["+Orders[7,table]["Order",string]+" x "+Orders[7,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  130.         Orders:remove(7)
  131.        
  132.     }elseif(egpClick(112,Cursor)) {
  133.         triggerListing()
  134.         concmd("say /pm "+Orders[8,table]["SteamID",string]+" Din pakke ["+Orders[8,table]["Order",string]+" x "+Orders[8,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  135.         Orders:remove(8)
  136.        
  137.     }elseif(egpClick(115,Cursor)) {
  138.         triggerListing()
  139.         concmd("say /pm "+Orders[9,table]["SteamID",string]+" Din pakke ["+Orders[9,table]["Order",string]+" x "+Orders[9,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  140.         Orders:remove(9)
  141.        
  142.     }elseif(egpClick(118,Cursor)) {
  143.         triggerListing()
  144.         concmd("say /pm "+Orders[10,table]["SteamID",string]+" Din pakke ["+Orders[10,table]["Order",string]+" x "+Orders[10,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  145.         Orders:remove(10)
  146.        
  147.     }elseif(egpClick(121,Cursor)) {
  148.         triggerListing()
  149.         concmd("say /pm "+Orders[11,table]["SteamID",string]+" Din pakke ["+Orders[11,table]["Order",string]+" x "+Orders[11,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  150.         Orders:remove(11)
  151.        
  152.     }elseif(egpClick(124,Cursor)) {
  153.         triggerListing()
  154.         concmd("say /pm "+Orders[12,table]["SteamID",string]+" Din pakke ["+Orders[12,table]["Order",string]+" x "+Orders[12,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  155.         Orders:remove(12)
  156.        
  157.     }elseif(egpClick(127,Cursor)) {
  158.         triggerListing()
  159.         concmd("say /pm "+Orders[13,table]["SteamID",string]+" Din pakke ["+Orders[13,table]["Order",string]+" x "+Orders[13,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  160.         Orders:remove(13)
  161.        
  162.     }elseif(egpClick(130,Cursor)) {
  163.         triggerListing()
  164.         concmd("say /pm "+Orders[14,table]["SteamID",string]+" Din pakke ["+Orders[14,table]["Order",string]+" x "+Orders[14,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  165.         Orders:remove(14)
  166.        
  167.     }elseif(egpClick(133,Cursor)) {
  168.         triggerListing()
  169.         concmd("say /pm "+Orders[15,table]["SteamID",string]+" Din pakke ["+Orders[15,table]["Order",string]+" x "+Orders[15,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  170.         Orders:remove(15)
  171.        
  172.     }elseif(egpClick(136,Cursor)) {
  173.         triggerListing()
  174.         concmd("say /pm "+Orders[16,table]["SteamID",string]+" Din pakke ["+Orders[16,table]["Order",string]+" x "+Orders[16,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  175.         Orders:remove(16)
  176.        
  177.     }elseif(egpClick(139,Cursor)) {
  178.         triggerListing()
  179.         concmd("say /pm "+Orders[17,table]["SteamID",string]+" Din pakke ["+Orders[17,table]["Order",string]+" x "+Orders[17,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  180.         Orders:remove(17)
  181.        
  182.     }elseif(egpClick(142,Cursor)) {
  183.         triggerListing()
  184.         concmd("say /pm "+Orders[18,table]["SteamID",string]+" Din pakke ["+Orders[18,table]["Order",string]+" x "+Orders[18,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  185.         Orders:remove(18)
  186.        
  187.     }elseif(egpClick(145,Cursor)) {
  188.         triggerListing()
  189.         concmd("say /pm "+Orders[19,table]["SteamID",string]+" Din pakke ["+Orders[19,table]["Order",string]+" x "+Orders[19,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  190.         Orders:remove(19)
  191.        
  192.     }elseif(egpClick(148,Cursor)) {
  193.         triggerListing()
  194.         concmd("say /pm "+Orders[20,table]["SteamID",string]+" Din pakke ["+Orders[20,table]["Order",string]+" x "+Orders[20,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  195.         Orders:remove(20)
  196.        
  197.     }elseif(egpClick(151,Cursor)) {
  198.         triggerListing()
  199.         concmd("say /pm "+Orders[21,table]["SteamID",string]+" Din pakke ["+Orders[21,table]["Order",string]+" x "+Orders[21,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  200.         Orders:remove(21)
  201.        
  202.     }elseif(egpClick(154,Cursor)) {
  203.         triggerListing()
  204.         concmd("say /pm "+Orders[22,table]["SteamID",string]+" Din pakke ["+Orders[22,table]["Order",string]+" x "+Orders[22,table]["Amount",string]+"] har forladt vores lager. Afvent leveringfirmaets ankomst p"+aa()+" din addresse.")
  205.         Orders:remove(22)
  206.        
  207.     }
  208. }
  209.  
  210.  
  211. ###### Timers ######
  212. if(clk("listNextOrder")) {
  213.     if(ListingAmount <= Orders:count()) {
  214.         addVisualOrder(Orders[ListingAmount,table]["Amount",string], Orders[ListingAmount,table]["SteamID",string], Orders[ListingAmount,table]["Order",string])
  215.         ListingAmount++
  216.         timer("listNextOrder",500)
  217.     }else{
  218.         stoptimer("listNextOrder")
  219.        
  220.     }
  221. }
  222.  
  223. if(dsClk("Transaction")){
  224.     Txt = dsGetString():explode("|5%w1>|")
  225.     addOrder(Txt[1,string],Txt[2,string],Txt[3,string])
  226.    
  227.     triggerListing()
  228. }
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!