Jump to content

Skorm

Forum Moderator
  • Posts

    1282
  • Joined

  • Last visited

  • Days Won

    41

Everything posted by Skorm

  1. I also made a version of this script. Which has a little more substance like a time limit to stop characters from bypassing it, and supports multiple passwords as well it mutes the player and hides them to prevent any and all commands. http://pastebin.com/HQCVnu4B //by skorm Ver1.1 - script GMPROTECT -1,{ OnPCLoginEvent: setarray $@Password$[1], "Level10+password", "Level20+password", "Level30+password", "Level40+password", "Level50+password", "Level60+password", "Level70+password", "Level80+password", "Level90+password"; for( set .@a,10; .@a < (getarraysize($@Password$)*10); set .@a,.@a + 10){ if(getgmlevel()>=.@a){ set .@p,(.@a / 10);} } if(getgmlevel() >= 10 && getgmlevel() <= 99) { initnpctimer; if($player$[0]!=""){ for(set .@a,0; .@a < getarraysize($player$); set .@a,.@a + 1) { set .@b,.@a + 1; setarray $player$[.@a],$player$[.@b]; setarray $playerinfo$[.@a],$playerinfo$[.@b]; } } setarray $player$[0],strcharinfo(0); setarray $playerinfo$[0],getcharid(3); atcommand "@hide"; atcommand "@mute 100 "+strcharinfo(0); mes "Please input your password, before 60 seconds are up."; input(@input$); if(@input$ == $@Password$[.@p]) { mes "Welcome to our Server."; close2; stopnpctimer; for( set .@a,0; .@a < getarraysize($player$); set .@a,.@a + 1){ attachrid($playerinfo$[.@a]); if(playerattached()){ if($player$[.@a]==strcharinfo(0)) { set .@g,1; callfunc "unlocker",$player$[.@a],$playerinfo$[.@a],.@g; } } } } else { mes "Incorrect!"; close2; for( set .@a,0; .@a < getarraysize($player$); set .@a,.@a + 1){ attachrid($playerinfo$[.@a]); if(playerattached()){ if($player$[.@a]==strcharinfo(0)) { callfunc "unlocker",$player$[.@a],$playerinfo$[.@a],.@g; } } } } } end; OnTimer60000: for( set $a,0; $a < getarraysize($player$); set $a,$a + 1){ attachrid($playerinfo$[$a]); if(playerattached()){ if($player$[$a]==strcharinfo(0)) { callfunc "unlocker",$player$[$a],$playerinfo$[$a],.@g; } } } end; OnInterIfInit: setarray $player$[0],"","","","","",""; setarray $playerinfo$[0],"","","","","",""; end; } function script unlocker { detachrid; if(getarg(2)){ atcommand "@unmute "+getarg(0); attachrid(getarg(1)); atcommand "@hide"; close; } else atcommand "@unmute "+getarg(0); attachrid(getarg(1)); atcommand "@kick "+strcharinfo(0); }
  2. prontera,155,181,5 script Sample 757,{ if( thirdJobItems ){ mes "You have gained the Item before."; } else { switch( BaseJob ){ Case Job_Knight: set .ItemID,7539; break; Case Job_Priest: set .ItemID,7539; break; Case Job_Wizard: set .ItemID,7539; break; Case Job_Blacksmith: set .ItemID,7539; break; Case Job_Hunter: set .ItemID,7539; break; Case Job_Assassin: set .ItemID,7539; break; Case Job_Crusader: set .ItemID,7539; break; Case Job_Monk: set .ItemID,7539; break; Case Job_Sage: set .ItemID,7539; break; Case Job_Rogue: set .ItemID,7539; break; Case Job_Alchemist: set .ItemID,7539; break; Case Job_Bard: set .ItemID,7539; break; Case Job_Dancer: set .ItemID,7539; break; default: mes "Nothing you can take.."; close; } getitem .ItemID,1; mes "You have gained 1 "+getitemname( .ItemID )+"."; set thirdJobItems,1; } close; } Can't use numbers at the start of a variable.
  3. prontera,111,111,5 script Repairer 123,{ atcommand "@repairall " + strcharinfo(0); end; } prontera,111,111,5 script Repairer#2 123,{ while(getbrokenid(0)){ repair getbrokenid(0); } end; } Number one will show up in logs number two won't.
×
×
  • Create New...