Advertisement
Guest User

Useless ATM

a guest
Nov 22nd, 2017
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.66 KB | None | 0 0
  1. @name Autogunshop Box
  2. @inputs EGP:wirelink User:entity Ranger:entity
  3. @outputs U
  4. @persist Profit U
  5. @trigger
  6.  
  7. if(first()){
  8. Profit = 100
  9. U = 0
  10. }
  11.  
  12. function number wirelink:egpButton(Idx:number,Ply:entity){
  13. TL = This:egpPos(Idx) - This:egpSize(Idx) / 2 * (0 ? 0 : 1)
  14. BR = This:egpPos(Idx) + This:egpSize(Idx) / (0 ? 1 : 2)
  15. Cur = This:egpCursor(Ply) return inrange(Cur, TL, BR) exit()}
  16.  
  17.  
  18. EGP:egpText(4,"",vec2(256,18)) EGP:egpAlign(4,1,1) EGP:egpSize(4,40)
  19. EGP:egpText(5,"",vec2(256,58)) EGP:egpAlign(5,1,1) EGP:egpSize(5,40)
  20.  
  21. if(Ranger:isShipment()){
  22. EGP:egpBox(10,vec2(256,256),vec2(470,470)) EGP:egpColor(10,255,255,255,100)
  23. EGP:egpText(27,""+Ranger:shipmentName(),vec2(256,200)) EGP:egpAlign(27,1,1) EGP:egpSize(27,60) EGP:egpColor(27,0,0,0,150)
  24. EGP:egpText(28,""+Ranger:shipmentName(),vec2(256,198)) EGP:egpAlign(28,1,1) EGP:egpSize(28,60)
  25.  
  26. EGP:egpText(29,"Pris: "+(Ranger:shipmentPrice()+Profit),vec2(256,310)) EGP:egpAlign(29,1,1) EGP:egpSize(29,80) EGP:egpColor(29,0,0,0,150)
  27. EGP:egpText(30,"Pris: "+(Ranger:shipmentPrice()+Profit),vec2(256,308)) EGP:egpAlign(30,1,1) EGP:egpSize(30,80)
  28.  
  29. EGP:egpText(31,"",vec2(256,300)) EGP:egpAlign(31,1,1) EGP:egpSize(31,60) EGP:egpColor(31,0,0,0,150)
  30. EGP:egpText(32,"",vec2(256,298)) EGP:egpAlign(32,1,1) EGP:egpSize(32,60)
  31. }else{
  32. EGP:egpBox(10,vec2(256,256),vec2(470,470)) EGP:egpColor(10,255,255,255,100)
  33. EGP:egpText(27,"Inds"+ae()+"t venligst",vec2(256,200)) EGP:egpAlign(27,1,1) EGP:egpSize(27,60) EGP:egpColor(27,0,0,0,150)
  34. EGP:egpText(28,"Inds"+ae()+"t venligst",vec2(256,198)) EGP:egpAlign(28,1,1) EGP:egpSize(28,60)
  35.  
  36. EGP:egpText(29,"et nyt",vec2(256,250)) EGP:egpAlign(29,1,1) EGP:egpSize(29,60) EGP:egpColor(29,0,0,0,150)
  37. EGP:egpText(30,"et nyt",vec2(256,248)) EGP:egpAlign(30,1,1) EGP:egpSize(30,60)
  38.  
  39. EGP:egpText(31,"shipment",vec2(256,300)) EGP:egpAlign(31,1,1) EGP:egpSize(31,60) EGP:egpColor(31,0,0,0,150)
  40. EGP:egpText(32,"shipment",vec2(256,298)) EGP:egpAlign(32,1,1) EGP:egpSize(32,60)
  41. }
  42.  
  43. if(~User & User){
  44. if(EGP:egpButton(10,User) & Ranger:isShipment()){
  45. Menu = 1
  46. moneyRequest(User,Ranger:shipmentPrice()+Profit,"K"+oe()+"b af "+Ranger:shipmentName())
  47. }
  48. }
  49.  
  50. if(moneyClk()){
  51.  
  52. U= 1 concmd("say /pm "+moneyClkPlayer():steamID()+" Du har k"+oe()+"bt "+Ranger:shipmentName()+" for "+(Ranger:shipmentPrice()+Profit)+" kroner")
  53. timer("ResetUser",2000)
  54. }
  55.  
  56.  
  57. if(clk("ResetUser")){
  58. U = 0
  59. }
  60.  
  61. runOnChat(1)
  62.  
  63. P = owner():lastSaid():explode(" ")
  64. if(P[1,string]=="!profit" & chatClk(owner())){
  65. Profit = P[2,string]:toNumber()
  66.  
  67. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement