[MegaScript] Ganar EXP al asesinar

por **oty5198** Sáb Dic 12, 2009 6:48 pm

Este script hace que si asesinas a un personaje, ganes EXP. Tu nivel tiene que ser menor que el delcontrincante.
En la segunda opción, es muuuucho más larga, y no está testeada, y depende del nivel gana una cosa o otra, y no hay condiciónde nivel. Dudo del else, no le he usado nunca.

Funcionalidad: No comprobada
Dificultad: Baja
Instrucciones: Coloca el siguiente script en Sub OnPVPDeath.

Código:: exp_obj = GetPlayerExp(GetPlayerTarget(Index)) nv_jug = GetPlayerLevel(Index) nv_obj = GetPlayerLevel(GetPlayerTarget(Index)) If GetPlayerLevel(Index) > nv_obj Then Call SetPlayerExp(GetPlayerTarget(Index),exp_obj+500) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 500 de EXP",0,0) else Call BattleMsg(GetPlayerTarget(Index),"Tu nivel es mayor que el del contrincante, no ganas EXP",0,0) End If

Pueden editar los mensajes y los números.

Segunda opción:

Hasta el nivel 40 va de 5 en 5, después del 40 de 10 en 10, y a partir del 60 de 50 en 50. Son 100 niveles.
Podéis editar el (Index,exp_obj+10) por el número que sea, para indicar la EXP que se gana en cada nivel (If GetPlayerLevel = X Then)

Código:: exp_obj = GetPlayerExp(GetPlayerTarget(Index)) nv_jug = GetPlayerLevel(Index) nv_obj = GetPlayerLevel(GetPlayerTarget(Index)) If GetPlayerLevel(Index) = 1 Then Call SetPlayerExp(GetPlayerTarget(Index),exp_obj+5) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 5 de EXP",0,0) End If If GetPlayerLevel(Index) = 2 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+10) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 10 de EXP",0,0) End If If GetPlayerLevel(Index) = 3 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+15) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 15 de EXP",0,0) End If If GetPlayerLevel(Index) = 4 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+20) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 20 de EXP",0,0) End If If GetPlayerLevel(Index) = 5 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+25) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 25 de EXP",0,0) End If If GetPlayerLevel(Index) = 6 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+30) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 30 de EXP",0,0) End If If GetPlayerLevel(Index) = 7 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+35) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 35 de EXP",0,0) End If If GetPlayerLevel(Index) = 8 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+40) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 40 de EXP",0,0) End If If GetPlayerLevel(Index) = 9 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+45) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 45 de EXP",0,0) End If If GetPlayerLevel(Index) = 10 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+50) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 50 de EXP",0,0) End If If GetPlayerLevel(Index) = 11 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+55) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 55 de EXP",0,0) End If If GetPlayerLevel(Index) = 12 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+60) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 60 de EXP",0,0) End If If GetPlayerLevel(Index) = 13 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+65) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 65 de EXP",0,0) End If If GetPlayerLevel(Index) = 14 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+70) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 70 de EXP",0,0) End If If GetPlayerLevel(Index) = 15 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+75) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 75 de EXP",0,0) End If If GetPlayerLevel(Index) = 16 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+80) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 80 de EXP",0,0) End If If GetPlayerLevel(Index) = 17 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+85) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 85 de EXP",0,0) End If If GetPlayerLevel(Index) = 18 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+90) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 90 de EXP",0,0) End If If GetPlayerLevel(Index) = 19 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+95) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 95 de EXP",0,0) End If If GetPlayerLevel(Index) = 20 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+100) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 100 de EXP",0,0) End If If GetPlayerLevel(Index) = 21 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+105) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 105 de EXP",0,0) End If If GetPlayerLevel(Index) = 22 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+110) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 110 de EXP",0,0) End If If GetPlayerLevel(Index) = 23 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+115) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 115 de EXP",0,0) End If If GetPlayerLevel(Index) = 24 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+120) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 120 de EXP",0,0) End If If GetPlayerLevel(Index) = 25 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+125) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 125 de EXP",0,0) End If If GetPlayerLevel(Index) = 26 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+130) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 130 de EXP",0,0) End If If GetPlayerLevel(Index) = 27 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+135) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 135 de EXP",0,0) End If If GetPlayerLevel(Index) = 28 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+140) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 140 de EXP",0,0) End If If GetPlayerLevel(Index) = 29 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+145) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 145 de EXP",0,0) End If If GetPlayerLevel(Index) = 30 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+150) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 150 de EXP",0,0) End If If GetPlayerLevel(Index) = 31 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+155) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 155 de EXP",0,0) End If If GetPlayerLevel(Index) = 32 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+160) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 160 de EXP",0,0) End If If GetPlayerLevel(Index) = 33 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+165) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 165 de EXP",0,0) End If If GetPlayerLevel(Index) = 34 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+170) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 170 de EXP",0,0) End If If GetPlayerLevel(Index) = 35 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+175) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 175 de EXP",0,0) End If If GetPlayerLevel(Index) = 36 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+180) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 180 de EXP",0,0) End If If GetPlayerLevel(Index) = 37 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+185) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 185 de EXP",0,0) End If If GetPlayerLevel(Index) = 38 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+190) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 190 de EXP",0,0) End If If GetPlayerLevel(Index) = 39 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+195) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 195 de EXP",0,0) End If If GetPlayerLevel(Index) = 40 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+200) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 200 de EXP",0,0) End If If GetPlayerLevel(Index) = 41 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+210) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 210 de EXP",0,0) End If If GetPlayerLevel(Index) = 42 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+220) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 220 de EXP",0,0) End If If GetPlayerLevel(Index) = 43 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+230) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 230 de EXP",0,0) End If If GetPlayerLevel(Index) = 44 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+240) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 240 de EXP",0,0) End If If GetPlayerLevel(Index) = 45 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+250) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 250 de EXP",0,0) End If If GetPlayerLevel(Index) = 46 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+260) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 260 de EXP",0,0) End If If GetPlayerLevel(Index) = 47 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+270) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 270 de EXP",0,0) End If If GetPlayerLevel(Index) = 48 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+280) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 280 de EXP",0,0) End If If GetPlayerLevel(Index) = 49 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+290) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 290 de EXP",0,0) End If If GetPlayerLevel(Index) = 50 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+300) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 300 de EXP",0,0) End If If GetPlayerLevel(Index) = 51 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+310) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 310 de EXP",0,0) End If If GetPlayerLevel(Index) = 52 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+320) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 320 de EXP",0,0) End If If GetPlayerLevel(Index) = 53 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+330) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 330 de EXP",0,0) End If If GetPlayerLevel(Index) = 54 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+340) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 340 de EXP",0,0) End If If GetPlayerLevel(Index) = 55 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+350) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 350 de EXP",0,0) End If If GetPlayerLevel(Index) = 56 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+360) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 360 de EXP",0,0) End If If GetPlayerLevel(Index) = 57 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+370) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 370 de EXP",0,0) End If If GetPlayerLevel(Index) = 58 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+380) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 380 de EXP",0,0) End If If GetPlayerLevel(Index) = 59 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+390) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 390 de EXP",0,0) End If If GetPlayerLevel(Index) = 60 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+400) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 400 de EXP",0,0) End If If GetPlayerLevel(Index) = 61 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+450) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 450 de EXP",0,0) End If If GetPlayerLevel(Index) = 62 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+500) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 500 de EXP",0,0) End If If GetPlayerLevel(Index) = 63 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+550) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 550 de EXP",0,0) End If If GetPlayerLevel(Index) = 64 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+600) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 600 de EXP",0,0) End If If GetPlayerLevel(Index) = 65 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+650) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 650 de EXP",0,0) End If If GetPlayerLevel(Index) = 66 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+700) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 700 de EXP",0,0) End If If GetPlayerLevel(Index) = 67 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+750) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 750 de EXP",0,0) End If If GetPlayerLevel(Index) = 68 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+800) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 800 de EXP",0,0) End If If GetPlayerLevel(Index) = 69 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+850) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 850 de EXP",0,0) End If If GetPlayerLevel(Index) = 70 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+900) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 900 de EXP",0,0) End If If GetPlayerLevel(Index) = 71 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+950) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 950 de EXP",0,0) End If If GetPlayerLevel(Index) = 72 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1000) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1000 de EXP",0,0) End If If GetPlayerLevel(Index) = 73 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1050) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1050 de EXP",0,0) End If If GetPlayerLevel(Index) = 74 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1100) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1100 de EXP",0,0) End If If GetPlayerLevel(Index) = 75 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1150) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1150 de EXP",0,0) End If If GetPlayerLevel(Index) = 76 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1200) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1200 de EXP",0,0) End If If GetPlayerLevel(Index) = 77 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1250) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1250 de EXP",0,0) End If If GetPlayerLevel(Index) = 78 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1300) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1300 de EXP",0,0) End If If GetPlayerLevel(Index) = 79 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1350) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1350 de EXP",0,0) End If If GetPlayerLevel(Index) = 80 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1400) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1400 de EXP",0,0) End If If GetPlayerLevel(Index) = 81 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1450) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1450 de EXP",0,0) End If If GetPlayerLevel(Index) = 82 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1500) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1500 de EXP",0,0) End If If GetPlayerLevel(Index) = 83 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1550) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1550 de EXP",0,0) End If If GetPlayerLevel(Index) = 84 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1600) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1600 de EXP",0,0) End If If GetPlayerLevel(Index) = 85 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1650) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1650 de EXP",0,0) End If If GetPlayerLevel(Index) = 86 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1700) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1700 de EXP",0,0) End If If GetPlayerLevel(Index) = 87 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1750) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1750 de EXP",0,0) End If If GetPlayerLevel(Index) = 88 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1800) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1800 de EXP",0,0) End If If GetPlayerLevel(Index) = 89 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1850) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1850 de EXP",0,0) End If If GetPlayerLevel(Index) = 90 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1900) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 1900 de EXP",0,0) End If If GetPlayerLevel(Index) = 91 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1950) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 10 de EXP",0,0) End If If GetPlayerLevel(Index) = 92 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+1950) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 10 de EXP",0,0) End If If GetPlayerLevel(Index) = 93 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+2000) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 2000 de EXP",0,0) End If If GetPlayerLevel(Index) = 94 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+2050) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 2050 de EXP",0,0) End If If GetPlayerLevel(Index) = 95 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+2100) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 2100 de EXP",0,0) End If If GetPlayerLevel(Index) = 96 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+2150) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 2150 de EXP",0,0) End If If GetPlayerLevel(Index) = 97 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+2200) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 2200 de EXP",0,0) End If If GetPlayerLevel(Index) = 98 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+2250) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 2250 de EXP",0,0) End If If GetPlayerLevel(Index) = 99 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+2300) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 2300 de EXP",0,0) End If If GetPlayerLevel(Index) = 100 Then Call SetPlayerEXP(GetPlayerTarget(Index),exp_obj+2350) Call SendPlayerData(Index) Call SendStats(Index) Call BattleMsg(GetPlayerTarget(Index),"Has ganado 2350 de EXP",0,0) End If

Cuando tenga tiempo pongo los elses en la segunda opción.