· 4 years ago · Apr 10, 2021, 02:48 PM
1- script regguilds#JM FAKE_NPC,{ //= Engine
2
3 OnPCLoadMapEvent:
4 if (agitcheck() == false) end;
5 if (agitcheck2() == false) end;
6 if (!compare("aldeg_cas01|aldeg_cas02|aldeg_cas03|aldeg_cas04|aldeg_cas05|gefg_cas01|gefg_cas02|gefg_cas03|gefg_cas04|gefg_cas05|payg_cas01|payg_cas02|payg_cas03|payg_cas04|payg_cas05|prtg_cas01|prtg_cas02|prtg_cas03|prtg_cas04|prtg_cas05|arug_cas01|arug_cas02|arug_cas03|arug_cas04|arug_cas05|schg_cas01|schg_cas02|schg_cas03|schg_cas04|schg_cas05", strcharinfo(3))) end;
7 query_sql "SELECT guild_id FROM g_cad",.@g_cad;
8 for (.@i = 0; .@i < getarraysize(.@g_cad); .@i++)
9 if (getcharid(2) == .@g_cad[.@i]) end;
10 dispbottom "Sua Guild não pode participar desta GdE.";
11 warp "prontera",156,191;
12 end;
13
14 OnInit:
15 query_sql "CREATE TABLE IF NOT EXISTS `g_cad` (`guild_id` mediumint(6) NOT NULL DEFAULT '0', UNIQUE KEY `guild_id` (`guild_id`)) ENGINE=MyISAM DEFAULT CHARSET=latin1;";
16 end;
17}
18- script gerenteg#JM FAKE_NPC,{
19
20 //= Registrar
21 OnAtcommand:
22 if(getgroupid()<99) goto OnRegister; //= No GM
23 query_sql "SELECT guild_id FROM g_cad LIMIT 100",.@gid;
24 if(!.@gid){
25 mes "Não há Guildas registradas.";
26 close;
27 end;
28 }
29 for (set .@i,0; .@i < getarraysize(.@gid); set .@i,.@i+1) {
30 set .@menu$, .@menu$+getguildname(.@gid[.@i])+":";
31 }
32 set .@num, select(.@menu$);
33 mes "Guild: "+getguildname(.@gid[.@num-1]);
34 if (select("Remover Guilda:Sair." ) == 1){
35 query_sql "DELETE FROM g_cad WHERE guild_id="+.@gid[.@num-1];
36 //if (getguildname(.@gid[.@num-1]) == null){ end; }
37 announce "[Ômega Ragnarok]: A Guilda ["+getguildname(.@gid[.@num-1])+"] foi removida da próxima GdE!",8;
38 end;
39 }
40 close;
41 end;
42
43 OnRegister:
44 .@gidp = getcharid(2);
45 if (!.@gidp){message strcharinfo(0),"Você não tem guild."; end;}
46 query_sql "SELECT guild_id FROM g_cad WHERE guild_id="+.@gidp,.@gidvar;
47 if(.@gidp == .@gidvar) {message strcharinfo(0),"Sua Guilda já está registrada."; end;}
48 query_sql "INSERT INTO g_cad VALUES ("+.@gidp+")";
49 message strcharinfo(0),"Sua Guilda pode disputar a próxima Guerra.";
50 announce "[Ômega Ragnarok]: A Guilda ["+getguildname(.@gidp)+"] foi registrada para próxima GdE!",8;
51 end;
52
53
54 OnInit:
55 bindatcmd "regwoe",strnpcinfo(3)+"::OnAtcommand",99,99;
56 end;
57}
58//= Mapflags all castle
59aldeg_cas01 mapflag loadevent
60aldeg_cas02 mapflag loadevent
61aldeg_cas03 mapflag loadevent
62aldeg_cas04 mapflag loadevent
63aldeg_cas05 mapflag loadevent
64gefg_cas01 mapflag loadevent
65gefg_cas02 mapflag loadevent
66gefg_cas03 mapflag loadevent
67gefg_cas04 mapflag loadevent
68gefg_cas05 mapflag loadevent
69payg_cas01 mapflag loadevent
70payg_cas02 mapflag loadevent
71payg_cas03 mapflag loadevent
72payg_cas04 mapflag loadevent
73payg_cas05 mapflag loadevent
74prtg_cas01 mapflag loadevent
75prtg_cas02 mapflag loadevent
76prtg_cas03 mapflag loadevent
77prtg_cas04 mapflag loadevent
78prtg_cas05 mapflag loadevent
79arug_cas01 mapflag loadevent
80arug_cas02 mapflag loadevent
81arug_cas03 mapflag loadevent
82arug_cas04 mapflag loadevent
83arug_cas05 mapflag loadevent
84schg_cas01 mapflag loadevent
85schg_cas02 mapflag loadevent
86schg_cas03 mapflag loadevent
87schg_cas04 mapflag loadevent
88schg_cas05 mapflag loadevent