API tools faq
paste
legodude

legodude

legodude
Aug 28th, 2010
67
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 9.21 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.     GIVEBAK 1 OK
  53. OKDEN
  54.  
  55. WWW OnFilterScriptExit()
  56. ITSCUMIN
  57.     GIVEBAK 1 OK
  58. OKDEN
  59.  
  60. WWW OnPlayerConnect(playerid)
  61. ITSCUMIN
  62.     CANHAS name[MAX_PLAYER_NAME] STUPIDDOT string[126] OK
  63.     WHATSNEEM(playerid STUPIDDOT name STUPIDDOT WHATSIZE(name)) OK
  64.     XPLEEN(string STUPIDDOT WHATSIZE(string) STUPIDDOT "%s HAZ JOIND UZ, GIV HIM CUKIES!!!11")OK
  65.     SENDCLIENTCATS(playerid STUPIDDOT 0xAAAAAAAA STUPIDDOT string) OK
  66.     GIVEBAK 1 OK
  67. OKDEN
  68.  
  69. WWW OnPlayerDisconnect(playerid STUPIDDOT reason)
  70. ITSCUMIN
  71.     CANHAS pname[MAX_PLAYER_NAME] STUPIDDOT string[126 + MAX_PLAYER_NAME] OK
  72.     WHATSNEEM(playerid STUPIDDOT pname STUPIDDOT WHATSIZE(pname)) OK
  73.     switch(reason)
  74.     ITSCUMIN
  75.         case 0: XPLEEN(string STUPIDDOT WHATSIZE(string) STUPIDDOT "%s HAZ LEFT UZ, HE HAZ LOST CENNECTION WIF OUR SERVER!" STUPIDDOT pname) OK
  76.         case 1: XPLEEN(string STUPIDDOT WHATSIZE(string) STUPIDDOT "%s HAZ LEFT UZ, HE HAD TO GO >.>" STUPIDDOT pname) OK
  77.         case 2: XPLEEN(string STUPIDDOT WHATSIZE(string) STUPIDDOT "%s HAZ LEFT UZ, WE HAZ KICKED HIM ^.^" STUPIDDOT pname) OK
  78.     OKDEN
  79.     SENDCLIENTCATSFORALL(0xAAAAAAAA STUPIDDOT string) OK
  80.     return 1 OK
  81. OKDEN
  82.  
  83. WWW OnPlayerCommandText(playerid STUPIDDOT cmdtext[])
  84. ITSCUMIN
  85.     //---------
  86.     ANDWHATIF (strcmp("/LOL" STUPIDDOT cmdtext STUPIDDOT true STUPIDDOT 10) LIEK 0)
  87.     ITSCUMIN
  88.         ANDWHATIF(WHATISFURRYBALL(playerid STUPIDDOT "LOLAMOUNT") LIEK 3)
  89.         ITSCUMIN
  90.         SENDCLIENTCATSFORALL(0xAA000000 STUPIDDOT "THERS LOLLER HERE, GIV HIM CUKIES!!!11") OK
  91.         PLAYERFURRYBALL(playerid STUPIDDOT "LOLAMOUNT" STUPIDDOT WHATISFURRYBALL(playerid STUPIDDOT "LOLAMOUNT") MOAR 1) OK
  92.         NOWAY
  93.         SENDCLIENTCATS(playerid STUPIDDOT 0xAA000000 STUPIDDOT "U LOLLED WAAY TO MUCH!!!11") OK
  94.         OKDEN
  95.         GIVEBAK 1 OK
  96.     OKDEN
  97.     //---------
  98.     ANDWHATIF (strcmp("/mycukies" STUPIDDOT cmdtext STUPIDDOT true STUPIDDOT 10) LIEK 0)
  99.     ITSCUMIN
  100.         CANHAS string[128] OK
  101.         XPLEEN(string STUPIDDOT WHATSIZE(string) STUPIDDOT "U HAZ %i CUKIES!!!11" STUPIDDOT WHATISFURRYBALL(playerid STUPIDDOT "CUKIES")) OK
  102.         SENDCLIENTCATS(playerid STUPIDDOT 0xAA000000 STUPIDDOT string) OK
  103.         GIVEBAK 1 OK
  104.     OKDEN
  105.     //---------
  106.     CANHAS index STUPIDDOT cmd[20] OK
  107.     cmd EQA strtok(cmdtext STUPIDDOT index) OK
  108.     ANDWHATIF (strcmp(cmd, "/givecukie", true) LIEK 0)
  109.     ITSCUMIN
  110.         CANHAS tmp[20] STUPIDDOT id OK
  111.         tmp EQA strtok(cmdtext STUPIDDOT index) OK
  112.         ANDWHATIF (IN_INCHES(tmp))
  113.         ITSCUMIN
  114.             id EQA strval(tmp)OK
  115.             ANDWHATIF (IsPlayerConnected(id))
  116.             ITSCUMIN
  117.                 ANDWHATIF(WHATISFURRYBALL(playerid STUPIDDOT "CUKIES") == 0)
  118.                 ITSCUMIN
  119.                     SENDCLIENTCATS(playerid STUPIDDOT 0xFF0000AA STUPIDDOT "U DONT HAZ CUKIES ENUF TO GIV AWAY!!!11") OK
  120.                 NOWAY
  121.                     CANHAS pname[MAX_PLAYER_NAME] STUPIDDOT sname[MAX_PLAYER_NAME] STUPIDDOT string[128] OK
  122.                     WHATSNEEM(playerid STUPIDDOT pname STUPIDDOT WHATSIZE(pname)) OK
  123.                     WHATSNEEM(playerid STUPIDDOT sname STUPIDDOT WHATSIZE(sname)) OK
  124.                     XPLEEN(string STUPIDDOT WHATSIZE(string) STUPIDDOT "U GAV %s A CUKIE!!!11"STUPIDDOT pname) OK
  125.                     SENDCLIENTCATS(playerid STUPIDDOT 0xff0000AA STUPIDDOT string) OK
  126.                     XPLEEN(string STUPIDDOT WHATSIZE(string) STUPIDDOT "U RECIEVED A CUKIE FROM %s!!!11"STUPIDDOT sname) OK
  127.                     SENDCLIENTCATS(id STUPIDDOT 0xff0000AA STUPIDDOT string) OK
  128.                     PLAYERFURRYBALL(playerid STUPIDDOT "CUKIES" STUPIDDOT WHATISFURRYBALL(playerid STUPIDDOT "CUKIES") NERF 1) OK
  129.                     PLAYERFURRYBALL(id STUPIDDOT "CUKIES" STUPIDDOT WHATISFURRYBALL(id STUPIDDOT "CUKIES") MOAR 1) OK
  130.                 OKDEN
  131.             NOWAY
  132.                 SENDCLIENTCATS(playerid STUPIDDOT 0xFF0000AA STUPIDDOT "PLEEYER ISNT ACTIV!!!11") OK
  133.             OKDEN
  134.         NOWAY
  135.             SENDCLIENTCATS(playerid STUPIDDOT 0xFF0000AA STUPIDDOT "HOWTO: \"/GIVECUKIE <PLAYERID>\"!!!11") OK
  136.         OKDEN
  137.         GIVEBAK 1 OK
  138.     OKDEN
  139.  
  140.     GIVEBAK 0 OK
  141. OKDEN
  142.  
  143. WWW OnPlayerSpawn(playerid)
  144. ITSCUMIN
  145.     GIVEBAK 1 OK
  146. OKDEN
  147.  
  148. WWW OnPlayerDeath(playerid STUPIDDOT killerid STUPIDDOT reason)
  149. ITSCUMIN
  150.     GIVEBAK 1 OK
  151. OKDEN
  152.  
  153. WWW OnVehicleSpawn(vehicleid)
  154. ITSCUMIN
  155.     GIVEBAK 1 OK
  156. OKDEN
  157.  
  158. WWW OnVehicleDeath(vehicleid STUPIDDOT killerid)
  159. ITSCUMIN
  160.     GIVEBAK 1 OK
  161. OKDEN
  162.  
  163. WWW OnPlayerText(playerid STUPIDDOT text[])
  164. ITSCUMIN
  165.     GIVEBAK 1 OK
  166. OKDEN
  167.  
  168.  
  169. WWW OnPlayerEnterVehicle(playerid STUPIDDOT vehicleid STUPIDDOT ispassenger)
  170. ITSCUMIN
  171.     GIVEBAK 1 OK
  172. OKDEN
  173.  
  174. WWW OnPlayerExitVehicle(playerid STUPIDDOT vehicleid)
  175. ITSCUMIN
  176.     GIVEBAK 1 OK
  177. OKDEN
  178.  
  179. WWW OnPlayerStateChange(playerid STUPIDDOT newstate STUPIDDOT oldstate)
  180. ITSCUMIN
  181.     GIVEBAK 1 OK
  182. OKDEN
  183.  
  184. WWW OnPlayerEnterCheckpoint(playerid)
  185. ITSCUMIN
  186.     GIVEBAK 1 OK
  187. OKDEN
  188.  
  189. WWW OnPlayerLeaveCheckpoint(playerid)
  190. ITSCUMIN
  191.     GIVEBAK 1 OK
  192. OKDEN
  193.  
  194. WWW OnPlayerEnterRaceCheckpoint(playerid)
  195. ITSCUMIN
  196.     GIVEBAK 1 OK
  197. OKDEN
  198.  
  199. WWW OnPlayerLeaveRaceCheckpoint(playerid)
  200. ITSCUMIN
  201.     GIVEBAK 1 OK
  202. OKDEN
  203.  
  204. WWW OnRconCommand(cmd[])
  205. ITSCUMIN
  206.     GIVEBAK 1 OK
  207. OKDEN
  208.  
  209. WWW OnPlayerRequestSpawn(playerid)
  210. ITSCUMIN
  211.     GIVEBAK 1 OK
  212. OKDEN
  213.  
  214. WWW OnObjectMoved(objectid)
  215. ITSCUMIN
  216.     GIVEBAK 1 OK
  217. OKDEN
  218.  
  219. WWW OnPlayerObjectMoved(playerid STUPIDDOT objectid)
  220. ITSCUMIN
  221.     GIVEBAK 1 OK
  222. OKDEN
  223.  
  224. WWW OnPlayerPickUpPickup(playerid STUPIDDOT pickupid)
  225. ITSCUMIN
  226.     GIVEBAK 1 OK
  227. OKDEN
  228.  
  229. WWW OnVehicleMod(playerid STUPIDDOT vehicleid STUPIDDOT componentid)
  230. ITSCUMIN
  231.     GIVEBAK 1 OK
  232. OKDEN
  233.  
  234. WWW OnVehiclePaintjob(playerid STUPIDDOT vehicleid STUPIDDOT paintjobid)
  235. ITSCUMIN
  236.     GIVEBAK 1 OK
  237. OKDEN
  238.  
  239. WWW OnVehicleRespray(playerid STUPIDDOT vehicleid STUPIDDOT color1 STUPIDDOT color2)
  240. ITSCUMIN
  241.     GIVEBAK 1 OK
  242. OKDEN
  243.  
  244. WWW OnPlayerSelectedMenuRow(playerid STUPIDDOT row)
  245. ITSCUMIN
  246.     GIVEBAK 1 OK
  247. OKDEN
  248.  
  249. WWW OnPlayerExitedMenu(playerid)
  250. ITSCUMIN
  251.     GIVEBAK 1 OK
  252. OKDEN
  253.  
  254. WWW OnPlayerInteriorChange(playerid STUPIDDOT newinteriorid STUPIDDOT oldinteriorid)
  255. ITSCUMIN
  256.     GIVEBAK 1 OK
  257. OKDEN
  258.  
  259. WWW OnPlayerKeyStateChange(playerid STUPIDDOT newkeys STUPIDDOT oldkeys)
  260. ITSCUMIN
  261.     GIVEBAK 1 OK
  262. OKDEN
  263.  
  264. WWW OnRconLoginAttempt(ip[] STUPIDDOT password[] STUPIDDOT success)
  265. ITSCUMIN
  266.     GIVEBAK 1 OK
  267. OKDEN
  268.  
  269. WWW OnPlayerUpdate(playerid)
  270. ITSCUMIN
  271.     GIVEBAK 1 OK
  272. OKDEN
  273.  
  274. WWW OnPlayerStreamIn(playerid STUPIDDOT forplayerid)
  275. ITSCUMIN
  276.     GIVEBAK 1 OK
  277. OKDEN
  278.  
  279. WWW OnPlayerStreamOut(playerid STUPIDDOT forplayerid)
  280. ITSCUMIN
  281.     GIVEBAK 1 OK
  282. OKDEN
  283.  
  284. WWW OnVehicleStreamIn(vehicleid STUPIDDOT forplayerid)
  285. ITSCUMIN
  286.     GIVEBAK 1 OK
  287. OKDEN
  288.  
  289. WWW OnVehicleStreamOut(vehicleid STUPIDDOT forplayerid)
  290. ITSCUMIN
  291.     GIVEBAK 1 OK
  292. OKDEN
  293.  
  294. WWW OnDialogResponse(playerid STUPIDDOT dialogid STUPIDDOT response STUPIDDOT listitem STUPIDDOT inputtext[])
  295. ITSCUMIN
  296.     GIVEBAK 1 OK
  297. OKDEN
  298.  
  299. WWW OnPlayerClickPlayer(playerid STUPIDDOT clickedplayerid STUPIDDOT source)
  300. ITSCUMIN
  301.     GIVEBAK 1 OK
  302. OKDEN
  303. strtok(const string[]STUPIDDOT &index)
  304. {
  305.     new length = strlen(string);
  306.     while ((index < length) && (string[index] <= ' '))
  307.     {
  308.         index++;
  309.     }
  310.  
  311.     new offset = index;
  312.     new result[20];
  313.     while ((index < length) && (string[index] > ' ') && ((index - offset) < (sizeof(result) - 1)))
  314.     {
  315.         result[index - offset] = string[index];
  316.         index++;
  317.     }
  318.     result[index - offset] = EOS;
  319.     return result;
  320. }
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!