API tools faq
paste
Guest User

Untitled

a guest
May 19th, 2018
199
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
4CS 8.34 KB | None | 0 0
raw download clone embed print report
  1.  
  2.  
  3. prontera,155,143,4  script  Guild Base  722,{
  4. set .npcname$,"[ ^0000FF Guild Base ^000000 ]";
  5. set .mapname$,"guild_vs1";
  6. Menu:
  7. mes .npcname$;
  8. mes "How may i help you sir ?";
  9. mes "^FF0000_____________________________^000000";
  10. mes "Guild Base Owner :";
  11. if ( $@RoomOwner$ == "0" ){
  12. mes "It is ^0000FFNOT Assigned^000000 yet.";
  13. }
  14. if ( $@RoomOwner$ != "0" ){
  15. mes "^0000FF"+$@RoomOwner$+"^000000 Guild";
  16. }
  17. mes "^FF0000_____________________________^000000";
  18. next;
  19. switch(select("^4EEE94Guild Base Information^000000",
  20.             ( getguildname(getcharid(2)) != $@RoomOwner$ )?"":"^0000FFReturn To Base^000000",
  21.             ( getgmlevel() < 80 || $@RoomOwner$ != "0" )?"":"^0000FFAssign Guild Base Owner^000000",   
  22.             ( getgmlevel() < 80 || $@RoomOwner$ == "0" )?"":"^FF0000Remove Guild Base Owner^000000")) {
  23.            
  24.     Case 1:
  25.         mes .npcname$;
  26.         mes "To get into this Guild Base, The guild leader of your guild must talk with GM Team who incharge of assigning the Guild Base. ";
  27.         next;
  28.         mes .npcname$;
  29.         mes "Inside the Guild Base have alot of facilities to help the Guild who owned the Guild Base.";
  30.         close;
  31.    
  32.     Case 2:
  33.         warp .mapname$,50,48;
  34.         flagemblem getcharid(2);
  35.         end;
  36.    
  37.     Case 3:
  38.         mes .npcname$;
  39.         mes "Please input the ^FF0000Name of the Guild^000000, So that the member of that guild can go into the Base.";
  40.         mes "^FF0000_____________________________^000000";
  41.         mes "The name is ^FF0000VERY SENSITIVE^000000, please write it ^0000FFCorrectly^000000...";
  42.         input $@RoomOwner$;
  43.         next;
  44.         mes .npcname$;
  45.         mes "The room has been assigned to ^FF0000"+$@RoomOwner$+"^000000 Guild.";
  46.         mes "The member for this guild will be warped here by now.";
  47.         atcommand "@guildrecall "+$@RoomOwner$+"";
  48.         message strcharinfo(0),"Emblem of Guild Base Holder will be displayed upon the members get into the Base.";
  49.         next;
  50.         goto Menu;
  51.    
  52.     Case 4:
  53.         mes .npcname$;
  54.         mes "Guild base ownership has been removed.";
  55.         set $@RoomOwner$,"0";
  56.         mapannounce .mapname$,"The Guild Base Ownership has been WIPE Off/Changed.",bc_blue;
  57.         mapwarp .mapname$,"prontera",155,185;
  58.         next;
  59.         goto Menu;
  60.     }
  61.  
  62. OnInit:
  63. set $@RoomOwner$,"0";
  64. end;
  65. }
  66.  
  67.  
  68. guild_vs1,50,50,5   script  Guild Base Manager  1907,{
  69. set .npcname$,"[ ^0000FF Guild Base Manager ^000000 ]";
  70. set .BuffDuration,3600000;
  71.  
  72.  
  73. Menu:
  74. mes .npcname$;
  75. mes "How can i help you here ?";
  76. next;
  77. switch(select( ( getguildname(getcharid(2)) != $@RoomOwner$ || getcharid(0) != getguildmasterid(getcharid(2)) )?"":"^4EEE94Guild Members Recalling^000000",
  78.             ( getguildname(getcharid(2)) != $@RoomOwner$ )?"":"^0000FFHeal / Buffs^000000",
  79.             ( getguildname(getcharid(2)) != $@RoomOwner$ )?"":"^0000FFEquipment Repairing^000000",
  80.             ( getguildname(getcharid(2)) != $@RoomOwner$ )?"":"^0000FFPVP Room Warp^000000",
  81.             ( getguildname(getcharid(2)) != $@RoomOwner$ )?"":"^0000FFWOE Castle Warp^000000",
  82.             ( getguildname(getcharid(2)) != $@RoomOwner$ )?"":"^0000FFMall Room Warp^000000",      
  83.             ( getguildname(getcharid(2)) != $@RoomOwner$ )?"":"^0000FFRefiner^000000",
  84.             "^FF0000Close^000000")) {
  85.            
  86.     Case 1: goto Guild_Recall;
  87.     Case 2: goto Healing;
  88.     Case 3: goto Repairing;
  89.     Case 4: goto PVP_Warp;
  90.     Case 5: goto WOE_Warp;
  91.     Case 6: goto Mall_Room;
  92.     Case 7: goto Refiner;
  93.     Case 8: close;
  94.         }
  95.        
  96. Guild_Recall:
  97.     mes .npcname$;
  98.     mes "Your guild members has been recalled. They shall arrive here within couple of time.";
  99.     atcommand "@guildrecall "+$@RoomOwner$+"";
  100.     close;
  101.  
  102. Healing:
  103.     mes .npcname$;
  104.     mes "Thank you for using our services.";
  105.     close2;
  106.     percentheal 100,100;
  107.     sc_start SC_SPIRIT,.BuffDuration,5;
  108.     specialeffect2 503,SELF,strcharinfo(0);
  109.     skilleffect 34,0; sc_start SC_BLESSING,.BuffDuration,10;
  110.     skilleffect 29,0; sc_start SC_INCREASEAGI,.BuffDuration,10;
  111.     skilleffect 66,0; sc_start SC_IMPOSITIO,.BuffDuration,5;
  112.     skilleffect 67,0; sc_start SC_SUFFRAGIUM,.BuffDuration,3;
  113.     skilleffect 74,0; sc_start SC_MAGNIFICAT,.BuffDuration,5;
  114.     skilleffect 361,0; sc_start SC_ASSUMPTIO,.BuffDuration,5;
  115.     skilleffect 383,0; sc_start SC_WINDWALK,.BuffDuration,10;
  116.     skilleffect 543,0; sc_start SC_NEN,.BuffDuration,5;
  117.     skilleffect 357,0; sc_start SC_CONCENTRATION,.BuffDuration,10;
  118.     skilleffect 380,0; sc_start SC_TRUESIGHT,.BuffDuration,5;
  119.     skilleffect 114,0; sc_start SC_MAXIMIZEPOWER,.BuffDuration,100;
  120.     skilleffect 234,0;sc_start SC_CP_WEAPON,.BuffDuration,5;
  121.     skilleffect 235,0;sc_start SC_CP_SHIELD,.BuffDuration,5;
  122.     skilleffect 236,0;sc_start SC_CP_ARMOR,.BuffDuration,5;
  123.     skilleffect 237,0;sc_start SC_CP_HELM,.BuffDuration,5;
  124.     skilleffect 355,0; sc_start SC_AURABLADE,.BuffDuration,5;
  125.     skilleffect 384,0; sc_start SC_MELTDOWN,.BuffDuration,10;
  126.     skilleffect 378,0; sc_start SC_EDP,.BuffDuration,5;
  127.     sc_start SC_ASPDPOTION2,.BuffDuration,0;
  128.     sc_start SC_STRFood,.BuffDuration,10;
  129.     sc_start SC_AGIFood,.BuffDuration,10;
  130.     sc_start SC_VITFood,.BuffDuration,10;
  131.     sc_start SC_INTFood,.BuffDuration,10;
  132.     sc_start SC_DEXFood,.BuffDuration,10;
  133.     sc_start SC_LUKFood,.BuffDuration,10;
  134.     sc_start SC_HitFood,.BuffDuration,10;
  135.     sc_start SC_FleeFood,.BuffDuration,10;
  136.     sc_start SC_BATKFood,.BuffDuration,10;
  137.     sc_start SC_MATKFood,.BuffDuration,10;
  138.     sc_start SC_ASPDPOTION2,.BuffDuration,5;
  139.     sc_start SC_SpeedUp1,.BuffDuration,0;
  140.     sc_start SC_EXPBOOST,.BuffDuration,150;
  141.     sc_end sc_stone;
  142.     sc_end sc_slowdown;
  143.     sc_end sc_freeze;
  144.     sc_end sc_sleep;
  145.     sc_end sc_curse;
  146.     sc_end sc_silence;
  147.     sc_end sc_confusion;
  148.     sc_end sc_blind;
  149.     sc_end sc_bleeding;
  150.     sc_end sc_decreaseagi;
  151.     sc_end sc_poison;
  152.     sc_end sc_hallucination;
  153.     sc_end sc_stripweapon;
  154.     sc_end sc_striparmor;
  155.     sc_end sc_striphelm;
  156.     sc_end sc_stripshield;
  157.     sc_end sc_changeundead;
  158.     sc_end sc_orcish;
  159.     sc_end sc_berserk;
  160.     sc_end sc_ske;
  161.     sc_end sc_swoo;
  162.     sc_end sc_ska;
  163.     end;
  164.    
  165. Repairing:
  166.     mes .npcname$;
  167.     if ( getbrokenid(1) == 0 ){
  168.     mes "You have nothing cant be repair by now.";
  169.     close;
  170.     }
  171.     atcommand "@repairall";
  172.     mes "All the broken equipments has been repaired.";
  173.     close;
  174.  
  175. PVP_Warp:
  176.     warp "prontera",151,181;
  177.     end;
  178.    
  179. Mall_Room:
  180.     warp "prontera",151,181;
  181.     end;
  182.    
  183. WOE_Warp:
  184.     mes .npcname$;
  185.     mes "Please choose your destination...";
  186.     next;
  187.     switch(select("^4EEE94Prontera WOE Castle^000000",
  188.                 "^4EEE94Geffen WOE Castle^000000",
  189.                 "^4EEE94Payon WOE Castle^000000",
  190.                 "^4EEE94Yuno WOE Castle^000000",
  191.                 "^4EEE94Aldebaran WOE Castle^000000",
  192.                 "^4EEE94Rachel WOE Castle^000000",
  193.                 "^FF000Close^000000")) {
  194.                
  195.         Case 1: callsub CastleWarp,"prt_gld",159,94;
  196.         Case 2: callsub CastleWarp,"gef_fild13",164,243;
  197.         Case 3: callsub CastleWarp,"pay_gld",200,173;
  198.         Case 4: callsub CastleWarp,"sch_gld",137,79;
  199.         Case 5: callsub CastleWarp,"alde_gld",186,155;
  200.         Case 6: callsub CastleWarp,"aru_gld",219,219;
  201.         Case 7: callsub CastleWarp,"prt_gld",159,94;
  202.         Case 8: callsub CastleWarp,"prt_gld",159,94;
  203.         Case 9: close;
  204.         }
  205.        
  206. CastleWarp:
  207.     warp getarg(0),getarg(1),getarg(2);
  208.     end;
  209.    
  210.    
  211. Refiner:
  212.     mes .npcname$;
  213.     mes "I am a great refiner.. i can refine all your equipments into +8.";
  214.     next;
  215.     switch(select( ( getequipisequiped(EQI_HEAD_TOP) == 0 || getequiprefinerycnt(EQI_HEAD_TOP) > 7 )?"":"Headgear [ ^4EEE94"+getequipname(EQI_HEAD_TOP)+"^000000 ]",
  216.                 ( getequipisequiped(EQI_ARMOR) == 0 || getequiprefinerycnt(EQI_ARMOR) > 7 )?"":"Armor [ ^4EEE94"+getequipname(EQI_ARMOR)+"^000000 ]",
  217.                 ( getequipisequiped(EQI_HAND_L) == 0 || getequiprefinerycnt(EQI_HAND_L) > 7 )?"":"Left Hand [ ^4EEE94"+getequipname(EQI_HAND_L)+"^000000 ]",
  218.                 ( getequipisequiped(EQI_HAND_R) == 0 || getequiprefinerycnt(EQI_HAND_R) > 7 )?"":"Right Hand [ ^4EEE94"+getequipname(EQI_HAND_R)+"^000000 ]",
  219.                 ( getequipisequiped(EQI_GARMENT) == 0 || getequiprefinerycnt(EQI_GARMENT) > 7 )?"":"Garment [ ^4EEE94"+getequipname(EQI_GARMENT)+"^000000 ]",
  220.                 ( getequipisequiped(EQI_SHOES) == 0 || getequiprefinerycnt(EQI_SHOES) > 7 )?"":"Shoes [ ^4EEE94"+getequipname(EQI_SHOES)+"^000000 ]",
  221.                 "^FF0000Close^000000")) {
  222.                
  223.         Case 1: callsub EquipRefine,256,8-getequiprefinerycnt(EQI_HEAD_TOP);
  224.         Case 2: callsub EquipRefine,16,8-getequiprefinerycnt(EQI_ARMOR);
  225.         Case 3: callsub EquipRefine,32,8-getequiprefinerycnt(EQI_HAND_L);
  226.         Case 4: callsub EquipRefine,2,8-getequiprefinerycnt(EQI_HAND_R);
  227.         Case 5: callsub EquipRefine,4,8-getequiprefinerycnt(EQI_GARMENT);
  228.         Case 6: callsub EquipRefine,64,8-getequiprefinerycnt(EQI_SHOES);
  229.         Case 7: close;
  230.         }
  231. EquipRefine:
  232.     mes .npcname$;
  233.     mes "Your equipment has been refined.";
  234.     atcommand "@refine "+getarg(0)+" "+getarg(1)+"";
  235.     next;
  236.     goto Refiner;
  237.  
  238.  
  239. }
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!