cheatking

Make a class and set locked to 1.

I demabd atleast 1/4 of the pages are about me! Lol J/K

Added your sig to my stash. :P

Try commenting out these lines: If LenB(frmLogin.txtPassword.Text) 0 Then frmLogin.Check1.Value = Checked Else frmLogin.Check1.Value = Unchecked End If If it works its something wrong with the check1 thing

Oh i see the error. Fixed: ``` ' Executes each time a player changes map. Sub OnMapLoad(Index, OldMap, NewMap) Dim Str Dim Def ' Give Stats If GetPlayerMap(index) = 1 And GetVar("StatsUp.ini", GetPlayerName(index),"StatsUp") = 0 Then ' Map If GetPlayerClass(index) = 0 Then ' Class Call PlayerMsg(Index, "I feel stronger here...", WHITE) Str = GetPlayerSTR(index) Call SetPlayerSTR(index, (Str + 5)) Def = GetPlayerDEF(index) Call SetPlayerDEF(index, (Def + 5)) Call SendPlayerData(index) Call PutVar("StatsUp.ini", GetPlayerName(index),"StatsUp", 1) End If End If ' Take stats when not on map If Not GetPlayerMap(index) = 1 Then ' Map If GetPlayerClass(index) = 0 Then ' Class Call PlayerMsg(Index, "I feel weaker here...", WHITE) Str = GetPlayerSTR(index) Call SetPlayerSTR(index, (Str - 5)) Def = GetPlayerDEF(index) Call SetPlayerDEF(index, (Def - 5)) Call SendPlayerData(index) Call PutVar("StatsUp.ini", GetPlayerName(index),"StatsUp", 0) End If End If End Sub ```

To take stats on certin maps: ``` ' Executes each time a player changes map. Sub OnMapLoad(Index, OldMap, NewMap) Dim Str Dim Def ' Give Stats If GetPlayerClass(index) = 0 Then ' Class If GetPlayerMap(index) = 1 Then ' Map Call PlayerMsg(Index, "I feel weaker here...", WHITE) Str = GetPlayerSTR(index) Call SetPlayerSTR(index, (Str - 5)) Def = GetPlayerDEF(index) Call SetPlayerDEF(index, (Def - 5)) Call SendPlayerData(index) End If End If ' Take stats when not on map If GetPlayerClass(index) = 0 Then ' Class If Not GetPlayerMap(index) = 1 Then ' Map Call PlayerMsg(Index, "I feel stronger here...", WHITE) Str = GetPlayerSTR(index) Call SetPlayerSTR(index, (Str + 5)) Def = GetPlayerDEF(index) Call SetPlayerDEF(index, (Def + 5)) Call SendPlayerData(index) End If End If End Sub ``` To give stats on certin maps: ``` ' Executes each time a player changes map. Sub OnMapLoad(Index, OldMap, NewMap) Dim Str Dim Def ' Give Stats If GetPlayerClass(index) = 0 Then ' Class If GetPlayerMap(index) = 1 Then ' Map Call PlayerMsg(Index, "I feel stronger here...", WHITE) Str = GetPlayerSTR(index) Call SetPlayerSTR(index, (Str + 5)) Def = GetPlayerDEF(index) Call SetPlayerDEF(index, (Def + 5)) Call SendPlayerData(index) End If End If ' Take stats when not on map If GetPlayerClass(index) = 0 Then ' Class If Not GetPlayerMap(index) = 1 Then ' Map Call PlayerMsg(Index, "I feel weakerhere...", WHITE) Str = GetPlayerSTR(index) Call SetPlayerSTR(index, (Str - 5)) Def = GetPlayerDEF(index) Call SetPlayerDEF(index, (Def - 5)) Call SendPlayerData(index) End If End If End Sub ```

Say again? I don't understand.

@[BS: > Hippoman link=topic=38430.msg381717#msg381717 date=1235390842] > So whats a sporc?  Not a fork… ...not a spoon... ... A SPORK!

Meaby make a timer and after so long it reloads map?

WHEN does it freeze? None of my maps freeze.

Theres a script allready check the script database

Sea kittens = Baby catfish. :P

``` ' Executes each time a player changes map. Sub OnMapLoad(Index, OldMap, NewMap) Dim Str Dim Def ' Give Stats If GetPlayerClass(index) = 0 Then ' Class If GetPlayerMap(index) = 1 Then ' Map Call PlayerMsg(Index, "Ahhh.. feels like home.", WHITE) Str = GetPlayerSTR(index) Call SetPlayerSTR(index, (Str + 5)) Def = GetPlayerDEF(index) Call SetPlayerDEF(index, (Def + 5)) Call SendPlayerData(index) End If End If ' Take stats when not on map If GetPlayerClass(index) = 0 Then ' Class If Not GetPlayerMap(index) = 1 Then ' Map Call PlayerMsg(Index, "Ahhh.. feels like home.", WHITE) Str = GetPlayerSTR(index) Call SetPlayerSTR(index, (Str - 5)) Def = GetPlayerDEF(index) Call SetPlayerDEF(index, (Def - 5)) Call SendPlayerData(index) End If End If End Sub ``` Fixed more errors. I works now.

This maight help. ``` Sub OnMapLoad(Index, OldMap, NewMap) If GetPlayerMap(Index) = Oldmap Then Call SetPlayerMap(Index, NewMap) End If [/code[[/code] ```

Type /refresh in the chatbox.

I'll fix up errors for you. Done! ``` Sub OnMapLoad(Index, OldMap, NewMap) Dim class Dim Str Dim Def If GetPlayerClass = 0 Then ' Class If GetPlayerMap = 0 Then ' Map Call PlayerMsg(Index, "Ahhh.. feels like home.", WHITE) Str = GetPlayerSTR(index) Call SetPlayerSTR(index, (Str + 5) Def = GetPlayerDEF(index) Call SetPlayerDEF(index, (Def + 5) End If Else If GetPlayerClass = 0 Then ' Class If GetPlayerMap = 0 Then ' Map Call PlayerMsg(Index, "Ahhh.. feels like home.", WHITE) Str = GetPlayerSTR(index) Call SetPlayerSTR(index, (Str + 5) Def = GetPlayerDEF(index) Call SetPlayerDEF(index, (Def + 5) End If Else If GetPlayerClass = 0 Then ' Class If GetPlayerMap = 0 Then ' Map Call PlayerMsg(Index, "Ahhh.. feels like home.", WHITE) Str = GetPlayerSTR(index) Call SetPlayerSTR(index, (Str + 5) Def = GetPlayerDEF(index) Call SetPlayerDEF(index, (Def + 5) End If Else If GetPlayerClass = 0 Then ' Class If GetPlayerMap = 0 Then ' Map Call PlayerMsg(Index, "Ahhh.. feels like home.", WHITE) Str = GetPlayerSTR(index) Call SetPlayerSTR(index, (Str + 5) Def = GetPlayerDEF(index) Call SetPlayerDEF(index, (Def + 5) End If Else If GetPlayerClass = 0 Then ' Class If GetPlayerMap = 0 Then ' Map Call PlayerMsg(Index, "Ahhh.. feels like home.", WHITE) Str = GetPlayerSTR(index) Call SetPlayerSTR(index, (Str + 5) Def = GetPlayerDEF(index) Call SetPlayerDEF(index, (Def + 5) End If End If End Sub ```

Dunno… try deleting it.

Turn your computer off then on again. > To reload the operating system and restart the computer Google define: reboot

I was used for a webscript in the past (Or so I'm told) Not used anymore.

did you try reebooting computer?

I remember you, kinda.

It did for me.

Nice one Οracle!

Yea! MAKE gwen wear te invisible cloths!

Pic dont show up. Warning - while you were typing a new reply has been posted. You may wish to review your post. Damb…