Query para premiar jogadores online por IP na MuEmu CORRIGIDA!

Query corrigida, a que tinha anteriormente no fórum estava com problemas!

Atenção: Sempre faça um BACKUP antes de rodar uma query que não conhece.

Citação:

---

Use Muonline
Go

Declare @login varchar(20),@ip varchar(20), @[Only registered and activated users can see links. Click Here To Register...] int

set @[Only registered and activated users can see links. Click Here To Register...] = 0
DECLARE LISTA CURSOR LOCAL FOR
SELECT distinct(IP) FROM memb_stat where connectstat=1
OPEN LISTA
FETCH NEXT FROM LISTA INTO @ip
WHILE @@FETCH_STATUS = 0
begin

set @login = (select top 1 memb___id from MEMB_STAT where IP = @ip and ConnectStat=1)

update MEMB_INFO set Cash = Cash+20 WHERE memb___id = @login

print @ip
print @login

set @[Only registered and activated users can see links. Click Here To Register...] = @[Only registered and activated users can see links. Click Here To Register...]+1

FETCH NEXT FROM LISTA INTO @ip
end
CLOSE LISTA
DEALLOCATE LISTA

print @[Only registered and activated users can see links. Click Here To Register...]

---

Créditos: @[Only registered and activated users can see links. Click Here To Register...]

Lembrando que meus créditos é somente por uma pequena correção destacada em vermelho, não sei quem fez a query :D

Vou deixar aqui uma outra opção para premiar com moedas do shop do X (cashshop)

Código:

---


USE MuOnline

Declare
@login varchar(20),
@ip varchar(20),
  @[Only registered and activated users can see links. Click Here To Register...] int = 0

Declare @WC int  = 10    -- Premio em WC
Declare @WP int  = 0      -- Premio em WP
Declare @GP int  = 0     -- Premio em GP

DECLARE LISTA CURSOR LOCAL FOR
SELECT distinct(IP) FROM memb_stat where connectstat=1
OPEN LISTA
FETCH NEXT FROM LISTA INTO @ip
WHILE @@FETCH_STATUS = 0
begin
 
        set @login = (select top 1 memb___id from MEMB_STAT where IP = @ip and ConnectStat=1)

                if exists (select AccountID from CashShopData where AccountID = @login)
                UPDATE CashShopData SET [WCoinC] = [WCoinC] + @WC, [WCoinP] = [WCoinP] + @WP, [GoblinPoint] = [GoblinPoint] + @GP WHERE [AccountID] = @login
                else
                INSERT INTO CashShopData (AccountID,WCoinC,WCoinP,GoblinPoint) VALUES (@login,@WC,@WP,@GP)

        print @ip
        print @login

        set  @[Only registered and activated users can see links. Click Here To Register...] =  @[Only registered and activated users can see links. Click Here To Register...]+1

        FETCH NEXT FROM LISTA INTO @ip
end

CLOSE LISTA
DEALLOCATE LISTA

print  @[Only registered and activated users can see links. Click Here To Register...]

---

Créditos:
Louis