API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Apr 12th, 2020
43
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.23 KB | None | 0 0
raw download clone embed print report
  1. @name Jokes E2 | By Mic
  2. @inputs [EGP]:wirelink [User]:entity
  3. @persist [T]:table [Price, TotalEarned, TotalJokes]:number
  4. if(~EGP & EGP:entity():isValid()){ EGP:egpClear() , timer("DRAW",500) }
  5. if(first())
  6. {
  7. " INDSTILLINGER "
  8. Price = 750
  9.  
  10. " DON'T CHANGE "
  11. function number wirelink:egpButton(Index:number,Player:entity){
  12. Pos=This:egpPos(Index)
  13. Size=This:egpSize(Index)/2
  14. return inrange(This:egpCursor(Player),Pos-Size,Pos+Size)
  15. }
  16. function newC(C:entity){
  17. T[C:steamID(),table] = table()
  18. T[C:steamID(),table]["OwnerEntity",entity] = C
  19. T[C:steamID(),table]["Spent",number] = 0
  20. T[C:steamID(),table]["Jokes",array] = array(
  21. "Alle b"+oe()+"rnene kom sikkert over havet undtagen Jannik han tog titanic.",
  22. "Alle b"+oe()+"rnene l"+oe()+"b over marken undtagen bo han blev voldtaget af en ko.",
  23. "Alle b"+oe()+"rnene kom sikkert hjem fra fabrikken undtagen Ib og Arne de blev til chili konkarne.",
  24. "Alle b"+oe()+"rnene gik forbi lorten undtagen Stella hun troede det var Nutella.",
  25. "Alle b"+oe()+"rnene hoppede ned i blenderen undtagen karlsmart han trykkede p"+aa()+" start.",
  26. "Alle b"+oe()+"rnene ristede p"+oe()+"lser undtagen Niller han ristede sin diller.",
  27. "Alle b"+oe()+"rnene blev sprunget i luften undentagen Rut, det var hendes prut.",
  28. "Alle b"+oe()+"rnene kom sikkert ud af fabrikken undtagen Fin, Bo og Asker de blev til skin sko og tasker.",
  29. "Alle b"+oe()+"rnene kom ud af den brndende b"+oe()+"sseklub undtagen S"+oe()+"ren Han sad fast i J"+oe()+"rgen",
  30. "Alle b"+oe()+"rnene kommer sikkert over vejen undtaget Peter han manglede en meter, men det var v"+ae()+"rre for Bo han manglede to.",
  31. "Alle b"+oe()+"rnene faldt i s"+oe()+"en undtagen Silje hun gjorde det med vilje..",
  32. "Alle b"+oe()+"rnene undviger skuddene undtagen Finn han var blind.",
  33. "Alle b"+oe()+"rnene gik ind i helikopteren, undtagen Ellen, hun gik ind i propellen.",
  34. "Alle b"+oe()+"rnene gik over broen untagen Kaj han faldte ned og blev "+ae()+"dt af en haj.",
  35. "Alle b"+oe()+"rnene kom sikkert ud af junglen undtagen amanda hun blev voldtaget af en panda.",
  36. "Alle b"+oe()+"rnene bollede undtagen Fin han kunne ikke f"+aa()+" den ind, men det var v"+ae()+"rre for Knud han kunne ikke f"+aa()+" den ud men det var v"+ae()+"rst for Lis for det var hendes fiss.",
  37. "Alle b"+oe()+"rnene skulle pr"+oe()+"ve forlystelsen undtagen Mille hun var for lille.",
  38. "Alle b"+oe()+"rnene sad p"+aa()+" julemandens kn"+ae()+", undtagen Nick han sad p"+aa()+" hans pik.",
  39. "Alle b"+oe()+"rnene var i skole undtagen Rolf, han var ude at spille golf.",
  40. "Alle b"+oe()+"rnene kom ud af den brndende skole undtagen Morten mongol han sad fast i sin k"+ae()+"restol",
  41. "Alle b"+oe()+"rnene havde sex bortset for Fin han kunne ikke f"+aa()+" den ind det var v"+ae()+"rre for Bob han kunne ikke f"+aa()+" den op.",
  42. "Alle b"+oe()+"rnene kom ud fra fabrikken undtagen "+aa()+"se hun kom p"+aa()+" d"+aa()+"se",
  43. "Alle b"+oe()+"rnene heppede p Sten, undtagen Frank det var ham der fik bank.",
  44. "Alle b"+oe()+"rnene besvimede undtagen bo, for han lugter af ko.",
  45. "Alle b"+oe()+"rnene blev skudt undtagen mongolen det var ham der havde pistolen.",
  46. "Alle b"+oe()+"rnene kom sikkert ud af kondomfabrikken undtagen Nick han blev til afprvnings-pik.",
  47. "Alle b"+oe()+"rnene kom sikkert over vejen undtagen Dirk Passer han blev k"+oe()+"rt ned af en spasser.",
  48. "Alle b"+oe()+"rnene l"+oe()+"b ud af den brandende skole undtagen Fin han troede det ringede ind.",
  49. "Alle b"+oe()+"rnene hyggede sig i zoo undtagen connie hun blev "+ae()+"dt af en pony.",
  50. "Alle b"+oe()+"rnene havde respekt for l"+ae()+"reren, undtagen Max Han stak hende ned med en saks.",
  51. "Alle b"+oe()+"rnene drak sodavand. undtagen Britt, hun drak sprit.",
  52. "Alle b"+oe()+"rnene l"+oe()+"b vk fra Srens pik undtagen Britt hun fik den til at strit.",
  53. "Alle b"+oe()+"rnene havde sexual undervisning undtagen Grete, for det var hendes ben de spredte.",
  54. "Alle b"+oe()+"rnene tog hjem efter skole undtagen Silje hun fik ikke sin vilje.",
  55. "Alle b"+oe()+"rnene kom sikkert hjem fra jagt, undtagen Ruth hun var blevet skudt.",
  56. "Alle b"+oe()+"rnene kiggede ind i ovnen undtagen Tage, for det var ham de skulle bage.",
  57. "Alle b"+oe()+"rnene kom sikkert ud af junglen undtagen Kamilla hun blev voldtaget af en gorilla.",
  58. "Alle b"+oe()+"rnene kom sikkert over vejen undtagen Leo han blev k"+oe()+"rt ned af en Ford Mondeo.",
  59. "Alle b"+oe()+"rnene kiggede ned i blenderen, undtagen bob han kiggede op.",
  60. "Alle b"+oe()+"rnene sk"+oe()+"d med pistoler undtagen Gert hans vendte den forkert.",
  61. "Alle b"+oe()+"rnene spillede ishockey undtagen Nuk han var en puk.",
  62. "Alle b"+oe()+"rnene elskede deres l"+ae()+"rer undtagen Inger hun gav hende fingeren."
  63. )
  64. }
  65. newC(owner())
  66. TotalJokes = T[owner():steamID(),table]["Jokes",array]:count()
  67. function number validCustomer(SteamID:string){
  68. return T[SteamID,table]["OwnerEntity",entity]:isValid()
  69. }
  70. function p(P:string){ printColor(vec(249,58,138),"ALLE ",vec(158,209,16),"B"+oeL()+"RNENE ",vec(255,255,255),": "+P) }
  71.  
  72. runOnChat(1)
  73. dsSetScope(2)
  74. dsJoinGroup("MICS_Joke_E2_"+owner():steamID())
  75. dsJoinGroup("MICS_Joke_E2_ALL")
  76. if(EGP:entity():isValid())
  77. {
  78. EGP:egpClear()
  79. timer("DRAW",500)
  80. }
  81. }
  82. if(dsClk("GetCustomers")){ concmd("gmod_cleanup") }
  83. ######################
  84. ##----- DESIGN -----##
  85. ######################
  86. elseif(clk("DRAW"))
  87. {
  88. Color = vec(249,58,138)
  89. EGP:egpBox(1,vec2(256,256),vec2(512,512))
  90. EGP:egpColor(1,33,33,33,255)
  91.  
  92. ## PINK BARN ##
  93. EGP:egpCircle(2,vec2(130,450),vec2(100,140))
  94. EGP:egpColor(2,Color)
  95. EGP:egpAngle(2,-5)
  96. " HOVEDT "
  97. EGP:egpRoundedBox(3,vec2(145,256),vec2(165,165))
  98. EGP:egpColor(3,Color)
  99. EGP:egpAngle(3,-5)
  100. EGP:egpRoundedBox(4,vec2(145,256),vec2(155,155))
  101. EGP:egpColor(4,33,33,33,255)
  102. EGP:egpAngle(4,-5)
  103. " MUND "
  104. EGP:egpWedge(5,vec2(145,295),vec2(25,25))
  105. EGP:egpColor(5,Color)
  106. EGP:egpSize(5,180)
  107. EGP:egpAngle(5,-5)
  108. " OEJNE "
  109. EGP:egpCircle(6,vec2(110,240),vec2(10,10))
  110. EGP:egpColor(6,Color)
  111. EGP:egpCircle(7,vec2(190,248),vec2(10,10))
  112. EGP:egpColor(7,Color)
  113. " HAAR "
  114. EGP:egpPoly(8,vec2(127,172),vec2(154,145),vec2(155,174))
  115. EGP:egpColor(8,Color)
  116. EGP:egpPoly(9,vec2(155,162),vec2(182,142),vec2(178,177))
  117. EGP:egpPoly(10,vec2(155,162),vec2(178,177),vec2(155,174))
  118. EGP:egpColor(9,Color)
  119. EGP:egpColor(10,Color)
  120. EGP:egpPoly(11,vec2(150,170),vec2(202,162),vec2(190,178))
  121. EGP:egpColor(11,Color)
  122.  
  123. Color = vec(158,209,16)
  124. ## GROEN BARN ##
  125. " KROP "
  126. EGP:egpCircle(12,vec2(256,470),vec2(70,100))
  127. EGP:egpColor(12,Color)
  128. EGP:egpAngle(12,10)
  129. " HOVEDT "
  130. EGP:egpRoundedBox(13,vec2(230,340),vec2(140,140))
  131. EGP:egpColor(13,Color)
  132. EGP:egpAngle(13,10)
  133. EGP:egpRoundedBox(14,vec2(230,340),vec2(130,130))
  134. EGP:egpColor(14,33,33,33,255)
  135. EGP:egpAngle(14,10)
  136. " MUND "
  137. EGP:egpWedge(15,vec2(235,365),vec2(22,22))
  138. EGP:egpColor(15,Color)
  139. EGP:egpSize(15,180)
  140. EGP:egpAngle(15,10)
  141. " OEJNE "
  142. EGP:egpCircle(16,vec2(190,340),vec2(8,8))
  143. EGP:egpColor(16,Color)
  144. EGP:egpCircle(17,vec2(265,328),vec2(8,8))
  145. EGP:egpColor(17,Color)
  146. " HAAR "
  147. EGP:egpPoly(18,vec2(180,282),vec2(205,305),vec2(201,279))
  148. EGP:egpPoly(19,vec2(193,280),vec2(222,310),vec2(217,276))
  149. EGP:egpPoly(20,vec2(211,277),vec2(232,296),vec2(229,274))
  150. EGP:egpPoly(21,vec2(227,274),vec2(239,298),vec2(240,272))
  151. EGP:egpColor(18,Color)
  152. EGP:egpColor(19,Color)
  153. EGP:egpColor(20,Color)
  154. EGP:egpColor(21,Color)
  155.  
  156. Color = vec(255,139,2)
  157. ## ORANGE BARN ##
  158. " KROP "
  159. EGP:egpCircle(22,vec2(360,470),vec2(45,80))
  160. EGP:egpColor(22,Color)
  161. " HOVED "
  162. EGP:egpRoundedBox(23,vec2(360,360),vec2(100,100))
  163. EGP:egpColor(23,Color)
  164. EGP:egpRoundedBox(24,vec2(360,360),vec2(90,90))
  165. EGP:egpColor(24,33,33,33,255)
  166. " MUND "
  167. EGP:egpWedge(25,vec2(360,375),vec2(18,18))
  168. EGP:egpSize(25,180)
  169. EGP:egpColor(25,Color)
  170. " MUND "
  171. EGP:egpCircle(26,vec2(380,350),vec2(6,6))
  172. EGP:egpColor(26,Color)
  173. EGP:egpCircle(27,vec2(340,350),vec2(6,6))
  174. EGP:egpColor(27,Color)
  175. " HAAR "
  176. EGP:egpPoly(28,vec2(333,315),vec2(349,325),vec2(369,331),vec2(392,331),vec2(406,326),vec2(403,318),vec2(390,314))
  177. EGP:egpColor(28,Color)
  178.  
  179. ## Click ##
  180. EGP:egpBox(29,vec2(256,256),vec2(512,512))
  181. EGP:egpAlpha(29,0)
  182.  
  183. EGP:egpText(30,"ALLE B"+oeL()+"RNENE",vec2(256,0))
  184. EGP:egpAlign(30,1,0)
  185. EGP:egpSize(30,20)
  186. EGP:egpFont(30,"Arial")
  187. EGP:egpBox(31,vec2(256,20),vec2(132,1))
  188. EGP:egpMaterial(31,"gui/center_gradient")
  189. EGP:egpText(32,"JOKES",vec2(256,20))
  190. EGP:egpAlign(32,1,0)
  191. EGP:egpSize(32,20)
  192. EGP:egpFont(32,"Arial")
  193.  
  194. EGP:egpText(33,"By Mic",vec2(510,510))
  195. EGP:egpAlign(33,2,2)
  196. EGP:egpSize(33,15)
  197. EGP:egpFont(33,"Arial")
  198. EGP:egpText(34,"K"+oe()+"b en Alle B"+oe()+"rnene joke, for kun: "+Price+",-",vec2(256,120))
  199. EGP:egpAlign(34,1,1)
  200. EGP:egpSize(34,19)
  201. EGP:egpFont(34,"Arial")
  202. #EGP:egpAngle(34,90)
  203. }
  204.  
  205. #########################
  206. ##----- EGPBUTTON -----##
  207. #########################
  208. elseif(EGP:egpButton(29,User) & ops() < 200)
  209. { moneyRequest(User, Price, "JOKE") }
  210. if(dsClk("ConsoleConnectionCheck")){ concmd(dsGetString()) }
  211. #########################
  212. ##----- MoneyClk -----##
  213. #########################
  214. elseif(moneyClk("JOKE"))
  215. {
  216. Player = moneyClkPlayer()
  217. if(!validCustomer(Player:steamID()))
  218. { newC(Player) }
  219.  
  220. R = round(random(1,T[Player:steamID(),table]["Jokes",array]:count()))
  221. S = T[Player:steamID(),table]["Jokes",array][R,string]
  222. for(I = 1, T[Player:steamID(),table]["Jokes",array]:count())
  223. {
  224. if(R == I){T[Player:steamID(),table]["Jokes",array]:remove(I)}
  225. }
  226.  
  227. TotalEarned += Price
  228. T[Player:steamID(),table]["Spent",number] = T[Player:steamID(),table]["Spent",number] + Price
  229. sendMessage(Player, S)
  230. }
  231.  
  232. if(dsClk("PingAllPlayers")){ dsSend("PingAllPlayersReturn", "MICS_Joke_E2_ALL", "SpawnedBy: "+owner():name()+" ["+owner():steamID()+"] | Solgt til: SOLGTIL [STEAMID]") } #[ HUSK AT GEMMM ]#
  233. #######################
  234. ##----- ChatClk -----##
  235. #######################
  236. elseif(chatClk(owner()))
  237. {
  238. A = owner():lastSaid():lower():explode(" ")
  239. if(A[1,string]=="!pris" | A[1,string]=="!price")
  240. {
  241. hideChat(1)
  242. if(A[2,string]:toNumber() >= 1)
  243. {
  244. Price = A[2,string]:toNumber()
  245. p("Pris sat til: "+Price+",-")
  246. EGP:egpSetText(34,"K"+oe()+"b en Alle B"+oe()+"rnene joke, for kun: "+Price+",-")
  247. }
  248. else
  249. { printColor(vec(255,255,255),"!pris/!price <",vec(231,76,60),"ANTAL",vec(255,255,255),">") }
  250. }
  251. elseif(A[1,string]=="!total")
  252. { hideChat(1) p("Du har tjent "+TotalEarned+" DKK") }
  253. elseif(A[1,string]=="!check")
  254. {
  255. hideChat(1)
  256. if(findPlayerByName(A[2,string]):isPlayer())
  257. {
  258. Player = findPlayerByName(A[2,string])
  259. if(validCustomer(Player:steamID()))
  260. {
  261. printColor(vec(255,255,255),"----------",vec(231,76,60),""+Player:name()+"",vec(255,255,255),"----------")
  262. printColor(vec(231,76,60),"Brugt: ",T[Player:steamID(),table]["Spent",number]+",- | Procent af totalt tjent: "+((T[Player:steamID(),table]["Spent",number] / TotalEarned) * 100)+" %")
  263. printColor(vec(231,76,60),"Antal jokes k"+oe()+"bt: "+(TotalJokes - T[Player:steamID(),table]["Jokes",array]:count())+" | Antal jokes tilbage: "+T[Player:steamID(),table]["Jokes",array]:count()+" | Procent jokes tilbage: "+round(((T[Player:steamID(),table]["Jokes",array]:count() / TotalJokes) * 100),2)+"%")
  264. }
  265. else
  266. { p("Ugyldig spiller...") }
  267. }
  268. else
  269. { printColor(vec(255,255,255),"!check <",vec(231,76,60),"SPILLER",vec(255,255,255),">") }
  270. }
  271. }
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!