API tools faq
paste
legodude

legodude

legodude
Aug 28th, 2010
81
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 9.72 KB | None | 0 0
raw download clone embed print report
  1. #define             CANHAS                  new
  2. #define             FILE                    File:
  3. #define             OK                      ;
  4. #define             GTFO                    SendRconCommand("exit");
  5. #define             NOWAY                   } else {
  6. #define             ITSCUMIN                {
  7. #define             OKDEN                   }
  8. #define             MOARDAN                 >
  9. #define             LESSDAN                 <
  10. #define             UMAD                    Kick
  11. #define             UEVENMADDER             Ban
  12. #define             EQA                     =
  13. #define             NERF                    -
  14. #define             IN_INCHES               strlen
  15. #define             LOOP_DEE_LOOP           while
  16. #define             MOAR                    +
  17. #define             WWW                     public
  18. #define             GIVEBAK                 return
  19. #define             RITE                    fwrite
  20. #define             FAX                     print
  21. #define             LIEK                    ==
  22. #define             PLZOPENFILE             fopen
  23. #define             PLZCLOSEFILE            fclose
  24. #define             FUKUGUISE               new x; while(x < MAX_PLAYERS) { Ban(x); }
  25. #define             AWESOMETHX              fclose
  26. #define             SENDCLIENTCATS          SendClientMessage
  27. //selfmade
  28. #define             HOWMANYMUNNEH           GetPlayerMoney
  29. #define             MUNNEHIS                SetPlayerMoney
  30. #define             WHATSNEEM               GetPlayerName
  31. #define             URNEEMIS                SetPlayerName
  32. #define             WHATSLIFE               GetPlayerHealth
  33. #define             LIFEIS                  SetPlayerHealth
  34. #define             PLAYERFURRYBALL         SetPVarInt
  35. #define             WHATISFURRYBALL         GetPVarInt
  36. #define             FUKUFURRYBALL           DeletePVar
  37. #define             WHATSIZE                sizeof
  38. #define             STUPIDDOT               ,
  39. #define             XPLEEN                  format
  40. #define             SENDCLIENTCATSFORALL    SendClientMessageToAll
  41. #define             ANDWHATIF               if
  42. #define             IFIFISNTIF              else if
  43. #define FILTERSCRIPT
  44.  
  45. #include <a_samp>
  46.  
  47. WWW OnFilterScriptInit()
  48. ITSCUMIN
  49.     FAX("\n--------------------------------------") OK
  50.     FAX(" LOLCODE CUKIES AND JOIN?LEAVE MSGS") OK
  51.     FAX("--------------------------------------\n") OK
  52.     CANHAS i OK
  53.     LOOP_DEE_LOOP(i<MAX_PLAYERS)
  54.     ITSCUMIN
  55.     PLAYERFURRYBALL(i,"CUKIES",5);
  56.     i++OK
  57.     OKDEN
  58.     GIVEBAK 1 OK
  59. OKDEN
  60.  
  61. WWW OnFilterScriptExit()
  62. ITSCUMIN
  63.     GIVEBAK 1 OK
  64. OKDEN
  65.  
  66. WWW OnPlayerConnect(playerid)
  67. ITSCUMIN
  68.     CANHAS name[MAX_PLAYER_NAME] STUPIDDOT string[126] OK
  69.     WHATSNEEM(playerid STUPIDDOT name STUPIDDOT WHATSIZE(name)) OK
  70.     XPLEEN(string STUPIDDOT WHATSIZE(string) STUPIDDOT "%s HAZ JOIND UZ, GIV HIM CUKIES!!!11")OK
  71.     SENDCLIENTCATS(playerid STUPIDDOT 0xAAAAAAAA STUPIDDOT string) OK
  72.     GIVEBAK 1 OK
  73. OKDEN
  74.  
  75. WWW OnPlayerDisconnect(playerid STUPIDDOT reason)
  76. ITSCUMIN
  77.     CANHAS pname[MAX_PLAYER_NAME] STUPIDDOT string[126 + MAX_PLAYER_NAME] OK
  78.     WHATSNEEM(playerid STUPIDDOT pname STUPIDDOT WHATSIZE(pname)) OK
  79.     switch(reason)
  80.     ITSCUMIN
  81.         case 0: XPLEEN(string STUPIDDOT WHATSIZE(string) STUPIDDOT "%s HAZ LEFT UZ, HE HAZ LOST CENNECTION WIF OUR SERVER!" STUPIDDOT pname) OK
  82.         case 1: XPLEEN(string STUPIDDOT WHATSIZE(string) STUPIDDOT "%s HAZ LEFT UZ, HE HAD TO GO >.>" STUPIDDOT pname) OK
  83.         case 2: XPLEEN(string STUPIDDOT WHATSIZE(string) STUPIDDOT "%s HAZ LEFT UZ, WE HAZ KICKED HIM ^.^" STUPIDDOT pname) OK
  84.     OKDEN
  85.     SENDCLIENTCATSFORALL(0xAAAAAAAA STUPIDDOT string) OK
  86.     return 1 OK
  87. OKDEN
  88.  
  89. WWW OnPlayerCommandText(playerid STUPIDDOT cmdtext[])
  90. ITSCUMIN
  91.     //---------
  92.     ANDWHATIF (strcmp("/LOL" STUPIDDOT cmdtext STUPIDDOT true STUPIDDOT 10) LIEK 0)
  93.     ITSCUMIN
  94.         ANDWHATIF(WHATISFURRYBALL(playerid STUPIDDOT "LOLAMOUNT") LIEK 3)
  95.         ITSCUMIN
  96.         SENDCLIENTCATSFORALL(0xAA000000 STUPIDDOT "THERS LOLLER HERE, GIV HIM CUKIES!!!11") OK
  97.         PLAYERFURRYBALL(playerid STUPIDDOT "LOLAMOUNT" STUPIDDOT WHATISFURRYBALL(playerid STUPIDDOT "LOLAMOUNT") MOAR 1) OK
  98.         NOWAY
  99.         SENDCLIENTCATS(playerid STUPIDDOT 0xAA000000 STUPIDDOT "U LOLLED WAAY TO MUCH!!!11") OK
  100.         OKDEN
  101.         GIVEBAK 1 OK
  102.     OKDEN
  103.     //---------
  104.     ANDWHATIF (strcmp("/mycukies" STUPIDDOT cmdtext STUPIDDOT true STUPIDDOT 10) LIEK 0)
  105.     ITSCUMIN
  106.         CANHAS string[128] OK
  107.         XPLEEN(string STUPIDDOT WHATSIZE(string) STUPIDDOT "U HAZ %i CUKIES!!!11" STUPIDDOT WHATISFURRYBALL(playerid STUPIDDOT "CUKIES")) OK
  108.         SENDCLIENTCATS(playerid STUPIDDOT 0xAA000000 STUPIDDOT string) OK
  109.         GIVEBAK 1 OK
  110.     OKDEN
  111.     ANDWHATIF (strcmp("/dropcukie" STUPIDDOT cmdtext STUPIDDOT true STUPIDDOT 10) LIEK 0)
  112.     ITSCUMIN
  113.         CANHAS string[128] OK
  114.         XPLEEN(string STUPIDDOT WHATSIZE(string) STUPIDDOT "U DROPPED A CUKIE!!!11") OK
  115.         SENDCLIENTCATS(playerid STUPIDDOT 0xAA000000 STUPIDDOT string) OK
  116.         PLAYERFURRYBALL(playerid STUPIDDOT "CUKIES" STUPIDDOT (WHATISFURRYBALL(playerid STUPIDDOT "CUKIES") NERF 1))OK
  117.        
  118.         GIVEBAK 1 OK
  119.     OKDEN
  120.     //---------
  121.     CANHAS index STUPIDDOT cmd[20] OK
  122.     cmd EQA strtok(cmdtext STUPIDDOT index) OK
  123.     ANDWHATIF (strcmp(cmd, "/givecukie", true) LIEK 0)
  124.     ITSCUMIN
  125.         CANHAS tmp[20] STUPIDDOT id OK
  126.         tmp EQA strtok(cmdtext STUPIDDOT index) OK
  127.         ANDWHATIF (IN_INCHES(tmp))
  128.         ITSCUMIN
  129.             id EQA strval(tmp)OK
  130.             ANDWHATIF (IsPlayerConnected(id))
  131.             ITSCUMIN
  132.                 ANDWHATIF(WHATISFURRYBALL(playerid STUPIDDOT "CUKIES") == 0)
  133.                 ITSCUMIN
  134.                     SENDCLIENTCATS(playerid STUPIDDOT 0xFF0000AA STUPIDDOT "U DONT HAZ CUKIES ENUF TO GIV AWAY!!!11") OK
  135.                 NOWAY
  136.                     CANHAS pname[MAX_PLAYER_NAME] STUPIDDOT sname[MAX_PLAYER_NAME] STUPIDDOT string[128] OK
  137.                     WHATSNEEM(playerid STUPIDDOT pname STUPIDDOT WHATSIZE(pname)) OK
  138.                     WHATSNEEM(playerid STUPIDDOT sname STUPIDDOT WHATSIZE(sname)) OK
  139.                     XPLEEN(string STUPIDDOT WHATSIZE(string) STUPIDDOT "U GAV %s A CUKIE!!!11"STUPIDDOT pname) OK
  140.                     SENDCLIENTCATS(playerid STUPIDDOT 0xff0000AA STUPIDDOT string) OK
  141.                     XPLEEN(string STUPIDDOT WHATSIZE(string) STUPIDDOT "U RECIEVED A CUKIE FROM %s!!!11"STUPIDDOT sname) OK
  142.                     SENDCLIENTCATS(id STUPIDDOT 0xff0000AA STUPIDDOT string) OK
  143.                     PLAYERFURRYBALL(playerid STUPIDDOT "CUKIES" STUPIDDOT (WHATISFURRYBALL(playerid STUPIDDOT "CUKIES") NERF 1))OK
  144.                     PLAYERFURRYBALL(id STUPIDDOT "CUKIES" STUPIDDOT (WHATISFURRYBALL(id STUPIDDOT "CUKIES") MOAR 1)) OK
  145.                 OKDEN
  146.             NOWAY
  147.                 SENDCLIENTCATS(playerid STUPIDDOT 0xFF0000AA STUPIDDOT "PLEEYER ISNT ACTIV!!!11") OK
  148.             OKDEN
  149.         NOWAY
  150.             SENDCLIENTCATS(playerid STUPIDDOT 0xFF0000AA STUPIDDOT "HOWTO: \"/GIVECUKIE <PLAYERID>\"!!!11") OK
  151.         OKDEN
  152.         GIVEBAK 1 OK
  153.     OKDEN
  154.  
  155.     GIVEBAK 0 OK
  156. OKDEN
  157.  
  158. WWW OnPlayerSpawn(playerid)
  159. ITSCUMIN
  160.     GIVEBAK 1 OK
  161. OKDEN
  162.  
  163. WWW OnPlayerDeath(playerid STUPIDDOT killerid STUPIDDOT reason)
  164. ITSCUMIN
  165.     GIVEBAK 1 OK
  166. OKDEN
  167.  
  168. WWW OnVehicleSpawn(vehicleid)
  169. ITSCUMIN
  170.     GIVEBAK 1 OK
  171. OKDEN
  172.  
  173. WWW OnVehicleDeath(vehicleid STUPIDDOT killerid)
  174. ITSCUMIN
  175.     GIVEBAK 1 OK
  176. OKDEN
  177.  
  178. WWW OnPlayerText(playerid STUPIDDOT text[])
  179. ITSCUMIN
  180.     GIVEBAK 1 OK
  181. OKDEN
  182.  
  183.  
  184. WWW OnPlayerEnterVehicle(playerid STUPIDDOT vehicleid STUPIDDOT ispassenger)
  185. ITSCUMIN
  186.     GIVEBAK 1 OK
  187. OKDEN
  188.  
  189. WWW OnPlayerExitVehicle(playerid STUPIDDOT vehicleid)
  190. ITSCUMIN
  191.     GIVEBAK 1 OK
  192. OKDEN
  193.  
  194. WWW OnPlayerStateChange(playerid STUPIDDOT newstate STUPIDDOT oldstate)
  195. ITSCUMIN
  196.     GIVEBAK 1 OK
  197. OKDEN
  198.  
  199. WWW OnPlayerEnterCheckpoint(playerid)
  200. ITSCUMIN
  201.     GIVEBAK 1 OK
  202. OKDEN
  203.  
  204. WWW OnPlayerLeaveCheckpoint(playerid)
  205. ITSCUMIN
  206.     GIVEBAK 1 OK
  207. OKDEN
  208.  
  209. WWW OnPlayerEnterRaceCheckpoint(playerid)
  210. ITSCUMIN
  211.     GIVEBAK 1 OK
  212. OKDEN
  213.  
  214. WWW OnPlayerLeaveRaceCheckpoint(playerid)
  215. ITSCUMIN
  216.     GIVEBAK 1 OK
  217. OKDEN
  218.  
  219. WWW OnRconCommand(cmd[])
  220. ITSCUMIN
  221.     GIVEBAK 1 OK
  222. OKDEN
  223.  
  224. WWW OnPlayerRequestSpawn(playerid)
  225. ITSCUMIN
  226.     GIVEBAK 1 OK
  227. OKDEN
  228.  
  229. WWW OnObjectMoved(objectid)
  230. ITSCUMIN
  231.     GIVEBAK 1 OK
  232. OKDEN
  233.  
  234. WWW OnPlayerObjectMoved(playerid STUPIDDOT objectid)
  235. ITSCUMIN
  236.     GIVEBAK 1 OK
  237. OKDEN
  238.  
  239. WWW OnPlayerPickUpPickup(playerid STUPIDDOT pickupid)
  240. ITSCUMIN
  241.     GIVEBAK 1 OK
  242. OKDEN
  243.  
  244. WWW OnVehicleMod(playerid STUPIDDOT vehicleid STUPIDDOT componentid)
  245. ITSCUMIN
  246.     GIVEBAK 1 OK
  247. OKDEN
  248.  
  249. WWW OnVehiclePaintjob(playerid STUPIDDOT vehicleid STUPIDDOT paintjobid)
  250. ITSCUMIN
  251.     GIVEBAK 1 OK
  252. OKDEN
  253.  
  254. WWW OnVehicleRespray(playerid STUPIDDOT vehicleid STUPIDDOT color1 STUPIDDOT color2)
  255. ITSCUMIN
  256.     GIVEBAK 1 OK
  257. OKDEN
  258.  
  259. WWW OnPlayerSelectedMenuRow(playerid STUPIDDOT row)
  260. ITSCUMIN
  261.     GIVEBAK 1 OK
  262. OKDEN
  263.  
  264. WWW OnPlayerExitedMenu(playerid)
  265. ITSCUMIN
  266.     GIVEBAK 1 OK
  267. OKDEN
  268.  
  269. WWW OnPlayerInteriorChange(playerid STUPIDDOT newinteriorid STUPIDDOT oldinteriorid)
  270. ITSCUMIN
  271.     GIVEBAK 1 OK
  272. OKDEN
  273.  
  274. WWW OnPlayerKeyStateChange(playerid STUPIDDOT newkeys STUPIDDOT oldkeys)
  275. ITSCUMIN
  276.     GIVEBAK 1 OK
  277. OKDEN
  278.  
  279. WWW OnRconLoginAttempt(ip[] STUPIDDOT password[] STUPIDDOT success)
  280. ITSCUMIN
  281.     GIVEBAK 1 OK
  282. OKDEN
  283.  
  284. WWW OnPlayerUpdate(playerid)
  285. ITSCUMIN
  286.     GIVEBAK 1 OK
  287. OKDEN
  288.  
  289. WWW OnPlayerStreamIn(playerid STUPIDDOT forplayerid)
  290. ITSCUMIN
  291.     GIVEBAK 1 OK
  292. OKDEN
  293.  
  294. WWW OnPlayerStreamOut(playerid STUPIDDOT forplayerid)
  295. ITSCUMIN
  296.     GIVEBAK 1 OK
  297. OKDEN
  298.  
  299. WWW OnVehicleStreamIn(vehicleid STUPIDDOT forplayerid)
  300. ITSCUMIN
  301.     GIVEBAK 1 OK
  302. OKDEN
  303.  
  304. WWW OnVehicleStreamOut(vehicleid STUPIDDOT forplayerid)
  305. ITSCUMIN
  306.     GIVEBAK 1 OK
  307. OKDEN
  308.  
  309. WWW OnDialogResponse(playerid STUPIDDOT dialogid STUPIDDOT response STUPIDDOT listitem STUPIDDOT inputtext[])
  310. ITSCUMIN
  311.     GIVEBAK 1 OK
  312. OKDEN
  313.  
  314. WWW OnPlayerClickPlayer(playerid STUPIDDOT clickedplayerid STUPIDDOT source)
  315. ITSCUMIN
  316.     GIVEBAK 1 OK
  317. OKDEN
  318. strtok(const string[]STUPIDDOT &index)
  319. {
  320.     new length = strlen(string);
  321.     while ((index < length) && (string[index] <= ' '))
  322.     {
  323.         index++;
  324.     }
  325.  
  326.     new offset = index;
  327.     new result[20];
  328.     while ((index < length) && (string[index] > ' ') && ((index - offset) < (sizeof(result) - 1)))
  329.     {
  330.         result[index - offset] = string[index];
  331.         index++;
  332.     }
  333.     result[index - offset] = EOS;
  334.     return result;
  335. }
Add Comment
Please, Sign In to add comment
Public Pastes
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!